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Sobre o autor 


Eu, Gabriel Schade Cardoso, tenho 26 anos (2017), sou graduado 
em Ciência da Computação, mestre em Computação Aplicada e 
amante da tecnologia — em especial da área de desenvolvimento 
de software. Sou desenvolvedor de soluções em software, 
palestrante, escritor, pesquisador e professor. Tenho uma sólida 
experiência em desenvolvimento .NET e sou entusiasta do 
paradigma funcional. 


Meu primeiro contato com computador ocorreu mais ou menos aos 
10 anos de idade, algo que sem dúvidas mudou minha vida. Como 
quase todos os garotos dessa idade, eu gostava muito de 
videogames e de jogar RPG com meus amigos. Isso me influenciou 
a gostar do ato de contar histórias e, por sua vez, escrever. 


Durante uma pesquisa sobre como os jogos eram criados, descobri 
que havia pessoas para escrever o roteiro e para programar aqueles 
jogos. Isso parece muito óbvio hoje, mas não parecia para o Gabriel 
de 10 anos de idade. Este foi o pontapé inicial e, sem perceber, aos 
11 anos eu já me divertia escrevendo roteiros e programando jogos 
simples (e bem ruins). E quase sem perceber, eu descobri o que 
gostava de fazer. 


Depois disso, comecei a explorar a programação fora da área de 
jogos, e sou fascinado por isso até hoje. Tenho sorte de conseguir 
trabalhar com o que gosto e de manter esta paixão durante todos 
estes anos. 


Se este livro despertar esta vontade em você e lhe auxiliar de 
alguma maneira, acredito que ele já tenha cumprido seu papel. Seja 
bem-vindo e espero que seus estudos ocorram da forma mais 
agradável possível. 


Prefácio 


Apesar do ganho recente de popularidade, a programação funcional 
não é algo novo. Por volta dos anos 50 no Massachusetts Institute 
of Technology (MIT), a linguagem Lisp foi desenvolvida. Esta foi 
responsável por introduzir diversos conceitos utilizados no 
paradigma funcional até hoje. 


Desde então, o paradigma funcional esteve muito mais presente em 
pesquisas científicas e na academia do que na indústria. Hoje, 
quase 70 anos depois, este cenário previamente estabelecido vem 
mudando, principalmente por conta da incorporação de diversos 
conceitos funcionais em linguagens populares como Java e CÊ. 


Com isso, cria-se novas formas de construir programas eficientes e 
de alta manutenibilidade. Mas para isso, será necessário 
desenvolver um novo mindset para desenvolvimento de software. 


Um dos objetivos deste livro é desmistificar o paradigma funcional 
através de exemplos práticos e aplicações reais, para que este tipo 
de desenvolvimento seja cada vez mais popular entre os 
desenvolvedores. 


O que você encontrará neste livro 


Este livro foi escrito para desenvolvedores que possuam 
conhecimento intermediário ou alto em Orientação a Objeto e 
conceitos gerais de programação. Em muitos exemplos, será feito 
um paralelo entre os principais conceitos relacionados à Orientação 
a Objetos e programação funcional. 


É bastante desejável, mas não obrigatório, que o leitor tenha um 
conhecimento prévio da linguagem C%, porque os exemplos serão 
implementados nela. Para facilitar a compreensão de 
desenvolvedores menos experientes nessa linguagem, serão dadas 
pequenas explicações sobre alguns conceitos. 


Como linguagem funcional, usaremos o Ff, a linguagem voltada a 
este paradigma na plataforma .NET. Apesar de o F# estar entre as 
três principais linguagens da Microsoft, juntamente com C# e VB, 
ela ainda não é muito popular entre os desenvolvedores da 
plataforma. 


Por conta disso, as funcionalidades e os conceitos usados no livro 
serão explicados com uma quantidade maior de detalhes. Com isso, 
você, leitor, poderá focar nos conceitos deste paradigma de 
programação e não ter de gastar tempo compreendendo uma nova 
linguagem ou sintaxe. 


Ao longo do livro, serão ilustrados diversos conceitos deste 
paradigma de programação, bem como suas aplicações. Os 
capítulos iniciais terão um foco mais teórico, com exemplos mais 
simples para que você possa manter o foco nos conceitos 
apresentados. 


Depois disso, nos quatro últimos capítulos, focaremos na prática e 
na utilização dos conceitos teóricos aprendidos, trazendo a 
aplicação mais próxima do dia a dia do desenvolvedor. Isso será 
feito utilizando exemplos com estruturas de dados imutáveis, 
funcionalidades importantes do paradigma funcional e através de 
uma aplicação web voltada para este paradigma. 


As aplicações criadas neste livro levarão em consideração 
principalmente a clareza e a facilidade de entendimento do leitor. 
Todas as implementações terão seu código centralizado no 
repositório do GitHub: 
https://github.com/gabrielschade/programacao-funcional-.net. 


O principal objetivo deste livro é encorajar o leitor a ingressar neste 
mundo desafiador (e muito divertido!) da programação funcional, em 
que o primeiro passo é aprender a pensar diferente. 


CAPÍTULO 1 
O paradigma funcional 


Imagine que você é um lenhador, mas não qualquer um, você é o 
melhor lenhador de toda a floresta. Você maneja seu machado 
melhor do que todos os outros, e chega a ser assustadora a 
quantidade de árvores que você é capaz de derrubar por dia. Depois 
de algum tempo, você decide trocar para um machado melhor; você 
sente um pequeno desconforto inicial, mas logo percebe que seu 
desempenho melhorou. 


Até que um dia um estrangeiro lhe apresenta uma motosserra, mas 
apenas lhe mostra a ferramenta, sem demonstrar a forma correta de 
utilizá-la. Seu primeiro instinto é segurá-la e bater com ela nas 
árvores, como você fazia com seus machados. 


Dessa forma, tudo o que você consegue são tentativas frustradas 
para realizar o seu trabalho e acaba tomando a conclusão óbvia: 
“motosserras não servem para cortar árvores, vou voltar a utilizar 
meu machado, porque ele se encaixa na minha mão e funciona da 
forma que eu espero”. 


Todos nós sabemos que uma motosserra consegue cortar árvores 
muito mais rápido do que machados, mas qual o real sentido dessa 
curta história? 


A troca de machados foi fácil, mas a troca de ferramenta foi difícil. 
Qual o motivo disso? Imagine que você trabalhou com C++ durante 
alguns anos, e depois disso decidiu mudar e começou a 
desenvolver em Cf. Esta mudança de uma linguagem para outra 
causa um desconforto inicial, mas em geral não é difícil de se 
adaptar. Claro que existem as particularidades de cada linguagem, 
mas quase toda mudança de linguagem é só uma questão de 
prática. 


Quando falamos de programação funcional, estamos falando de um 
novo paradigma. A troca do machado para a motosserra é 
basicamente isso, um novo paradigma de trabalho. Aprender um 
novo paradigma é difícil. Pode parecer uma frase forte, mas o 
motivo real é que você precisa aprender a pensar de uma forma 
diferente, e isso é algo complicado. 


Quando você encontrar um problema, o seu dilema vai se parecer 
com o dilema do machado e da motosserra do lenhador. Afinal, você 
já passou por muitos problemas e provavelmente já encontrou algo 
parecido antes. Você talvez sinta a Orientação a Objetos da mesma 
forma como o lenhador sente o machado, mas o objetivo deste livro 
é fazer você transcender este dilema, é fazer com que você aprenda 
uma nova forma de pensar sobre programação, porque isso é 
necessário quando se deseja aprender um novo paradigma. 


Acredito que, para isso, antes de mais nada, temos de aprender a 
ofuscar nossos vícios e a forma de pensar que já temos, para assim 
estarmos prontos para aprender novamente. Não tenho o menor 
objetivo de assustar você; ao contrário disso, acredito que isso deve 
ser algo encorajador. Abrir um novo caminho e uma nova forma de 
pensar, por mais trabalhoso que possa ser, é algo que vale a pena, 
e este livro vai ser seu companheiro nessa jornada. 


A história do lenhador, originalmente contada por Neal Ford, ilustra o 
paradigma de Orientação a Objeto como um machado e o funcional 
como uma motosserra, mas será mesmo que o pensamento 
funcional é uma novidade que veio após o machado? 


O pensamento funcional surgiu há muito tempo atrás, na verdade, 
antes mesmo dos primeiros computadores pessoais. Na 
computação, programação funcional é um paradigma que compõe 
uma forma de construir estruturas e elementos em seus programas 
de computador, tanto quanto os conceitos de Orientação a Objeto a 
que estamos acostumados. 


Tanto a programação funcional quanto a programação orientada a 
objetos podem ser utilizadas para resolver os mesmos problemas, 
mas a abordagem para lidar com eles é bastante diferente. Apesar 
de sua elegância e produtividade, a programação funcional foi 
deixada de lado pela maioria dos programadores durante muito 
tempo, mas hoje enfrentamos frequentemente momentos em que a 
equipe precisa ser altamente produtiva e está cada vez mais comum 
a necessidade de escrevermos programas que processam grandes 
conjuntos de dados de forma distribuída entre processadores ou 
computadores. Nunca houve uma época melhor para aprender 
programação funcional do que agora. 


Quando se pensa de forma funcional é comum que as funções não 
dependam de mais nada além dos parâmetros de entrada, e 
retornem um valor sem alterar estados pré-existentes no programa. 
Isso não parece nenhuma mudança crítica, porém, apenas esta 
simples forma de pensar faz com que a programação funcional seja 
mais previsível, fácil de manter e, até mesmo, torna o seu programa 
mais testável. Afinal, as funções individualmente não tocam no 
restante do sistema. 


Os conceitos de programação funcional estão se tornando cada vez 
mais importantes, e um grande indicativo disto é a absorção deles 
em linguagens de programação mais populares. Java, C# e até C++ 
estão evoluindo na direção destes paradigmas. 


Se você é um programador .NET, já deve conhecer as features: 
generics, expressões lambda e métodos anônimos. Estes recursos 
do framework possuem grandes influências do conceito de 
programação funcional. Veremos neste livro que é possível aplicar 
diversos conceitos de programação funcional mesmo em linguagens 
que não são puramente funcionais. 


Por esta razão, este livro focará mais em entendermos os 
conceitos de programação funcional do que sobre uma tecnologia 
em si, porém, precisaremos usar uma linguagem como ferramenta 
de estudo. Neste livro, o desenvolvimento dos exemplos será 


implementado em C% e F#, fazendo um paralelo com uma 
linguagem orientada a objetos e uma linguagem funcional da 
plataforma .NET. 


1.1 Mas afinal, o que é programação funcional? 


Não existe nenhuma definição unânime e clara sobre o que é a 
programação funcional, mas podemos dizer que ela é um paradigma 
que se concentra mais nos resultados computacionais do que nas 
ações que serão executadas para chegar a este resultado. 
Geralmente as linguagens funcionais são muito sucintas e 
expressivas, pois o foco é sempre alcançar o resultado usando o 
menor número de recursos. 


Vamos fazer uma breve reflexão. Na forma imperativa (orientada a 
objetos) com a qual você está acostumado a trabalhar, o que é 
necessário para escrever um programa? Em geral, utilizamos um 
vocabulário que o computador entende, comumente composto por 
comandos, e podemos adicionar novos comandos a este 
vocabulário. 


Estes novos comandos que adicionamos ao vocabulário são apenas 
uma abstração, porque internamente eles terão a descrição passo a 
passo sobre como o programa deve se comportar naquele ponto. 
Conforme seu programa cresce, naturalmente o conjunto de 
comandos que você pode executar aumenta. Com isso, fica cada 
vez mais difícil gerenciar seu código e, neste ponto, os conceitos de 
Orientação a Objeto auxiliam muito o desenvolvedor, mesmo que 
internamente o programa ainda seja uma descrição da sequência de 
passos que a máquina deve executar. 


As linguagens declarativas (funcionais) possuem uma forma 
diferente de estender o vocabulário que usamos para criar o 
programa. Não estamos limitados a criar novos comandos; podemos 


criar novas estruturas de fluxo, e compor a forma como o programa 
se comporta. 


Se fôssemos tentar traduzir um mesmo método programado para 
ilustrar a diferença entre estas formas de linguagem em frases, o 
resultado seria parecido com isso: 


LINGUAGEM IMPERATIVA 


Obtenha o primeiro contato da agenda do usuário. Verifique se o 
nome deste contato se inicia com a letra 'A'. Caso inicie com a 
letra 'A', exiba seu e-mail. Caso ainda haja contatos na agenda, 
vá para o próximo. 


LINGUAGEM DECLARATIVA 


Exiba o e-mail de todos os contatos da sua agenda que o nome 
inicie com a letra 'A'. 





A diferença fundamental, como já foi dito, é que a programação 
funcional foca nos resultados, no sentido de que é mais importante 
você pensar no que você vai realizar do que em como você vai 
realizar. Você pode notar que pensar em um nível mais abstrato, de 
forma declarativa, se aproxima muito mais da nossa linguagem do 
dia a dia, e é muito mais fácil de compreender. 


Na programação funcional, desenvolvemos funções lidando com os 
parâmetros de entrada e gerando resultados, sem alterarmos o 
estado de coisas preexistentes no programa. Com isso, podemos 
notar alguns benefícios, como: maior previsibilidade no 
comportamento, facilidade de extensão e melhora na 
testabilidade. Não importa a linguagem de programação com qual 
você está trabalhando, estes conceitos vão trazer benefícios para o 
programa que você está desenvolvendo. 


Enquanto a Orientação a Objeto torna o código claro e entendiível 
pelo poder de encapsular as partes que interagem e fazem seu 
programa funcionar, a programação funcional tem estes mesmos 
efeitos no código, minimizando a quantidade de partes que 
interagem para realizar uma ação no seu programa. 


Muitos programadores podem dizer que programação funcional é 
uma forma mais elegante de se escrever código, mas eu diria que o 
que a torna realmente importante é a produtividade. Devido ao 
conceito de minimizar as partes que interagem no sistema, o 
desenvolvedor se torna capaz de fazer muito mais, escrevendo 
muito menos código. E mais importante que isso, é possível manter 
a qualidade de código e a manutenibilidade do programa. 


1.2 O que ele é F# e por que vamos usá-lo? 


Uma resposta muito direta sobre o motivo de utilizar esta linguagem 
é: o Fá é a resposta da Microsoft para o paradigma funcional 
dentro de plataforma .NET. 


Como dito anteriormente, de modo geral a programação funcional é 
mais uma forma de pensar do que um conjunto fechado de 
ferramentas. Isso quer dizer que, mesmo o F# sendo a linguagem 
funcional dentro da plataforma .NET, ela não é a única linguagem 
em que você poderá aplicar os conceitos que veremos ao longo 
deste livro. 


Vários dos exemplos serão implementados também em C%, 
ilustrando a diferença entre as duas linguagens. Claro que, por ser 
naturalmente concebida para ser funcional, o F# apresenta uma 
série de facilidades e abstrações que tornam o caminho mais fácil. 


A plataforma .NET possui uma ampla variedade de linguagens, mas 
essencialmente três são predominantes na comunidade de 
desenvolvedores: C%, Visual Basic .NET e FÃ. A diferenciação entre 


o Visual Basic e o Cf é praticamente toda sintática. Algumas 
palavras-chaves e separadores diferentes, mas nenhuma grande 
diferença de paradigma. 


O F%, por outro lado, foi concebido tendo como base o paradigma 
functional-first, o que faz com que esta linguagem tenha um 
propósito bastante diferente das duas anteriores. Sendo assim, esta 
linguagem é uma ótima combinação entre o paradigma de 
programação funcional e uma plataforma bem consolidada, com um 
runtime maduro e uma vasta biblioteca de funções preexistentes. 


Outras características bastante importantes e decisivas na escolha 
do Ff como linguagem são: 


e Concisão; 

e Simplicidade; 

e Facilidade; 

e Proteção contra erros; 

e Facilidade com paralelismo. 


F# é uma linguagem bastante concisa e o código possui pouco 
ruído. Ou seja, parênteses são pouco utilizados, blocos de código 
são separados por indentação, não utiliza chaves e a quebra de 
linhas, por si só, já é o delimitador. 


Várias tarefas são bastante simples de serem implementadas 
nessa linguagem, tornando-a bastante fácil de aprender. O FÉ 
também possui um sistema de tipagem bastante poderoso, que 
torna muito difícil criar códigos com erros comuns, dando uma 
excelente proteção contra erros. E por fim, a linguagem dispõe de 
algumas ferramentas que facilitam a concorrência e o paralelismo 
em um programa. 


1.3 Começando a programar com Cf e Ff 


Vamos começar com o exemplo mais clássico de todos: um "Olá 
mundo". Faremos este exemplo em C# e em FÃ. 


ANTES DE COMEÇAR 


Antes de começarmos a falar de nossos primeiros exemplos, é 
necessário que você tenha feito o download de todas as 
ferramentas que usaremos. Neste livro, vamos utilizar o Visual 
Studio Community como IDE de desenvolvimento que pode ser 
baixada em: https://www.visualstudio.com/pt- 
br/downloads/download-visual-studio-vs.aspx. 


Após baixar o Visual Studio, é fortemente recomendado a 
instalação de duas extensões. A primeira delas é o Visual FÊ 
Power Tools, que adiciona uma série de funcionalidades ao 
Visual Studio para se trabalhar com FÊ no Visual Studio. 


Por fim, é necessário fazer o download da extensão Ff MVC 5. 
Ela é usada para criar projetos web utilizando Ff, e será 
utilizada a partir do capítulo Programação Web com FÊ. 


Para instalar uma extensão no Visual Studio, você pode seguir 
as instruções da Microsoft através deste link: 
http://bit.ly/extensoes-vs. 





No Visual Studio, você é capaz de criar diversos tipos de projetos. 
Nesse caso, escolheremos o projeto do tipo Console Application em 
C#. Para chegar até a janela em que você escolhe o projeto, 
selecione o menu File -> New -> Project . Após selecionar este 
menu, será exibida a janela ilustrada na figura a seguir: 


New Project 


b Recent .NET Framework 4.5.2 + Sort by: Default ~ ici 
4 Install ca a 
pata N ] Blank App (Universal Windows) Visual C# 


4 Templates ca 
b Visual C# N ] Blank App (Universal Windows 8.1) Visual C# 


b Visual Basic cs 
b Visual C++ Windows Forms Application Visual CH 
b Visual F# cu 

SQL Server LI WPF Application Visual C# 


Python 


; DE m 
b JavaScript Console Application Visual C 





b TypeScript me$ 
Gime m Hub App (Universal Windows 8.1) Visual C# 
Build Accelerator ch 
. = ASP.NET Web Application Visual CH 
b Other Project Types e 
Modeling Projects y —Cł rá 
anne Click here to go online and find templates. 





Name: PrimeiraAplicacao 


Figura 1.1: Criando seu projeto console em CÊ 


Após criar seu projeto, você deverá visualizar a classe Program 
dentro dele. Esta classe possui o método main. Neste ponto 
podemos ignorar o fato de ele ser estático e até mesmo os seus 
parâmetros. Tudo que vamos fazer agora é utilizar a biblioteca do 
NET para escrevermos no console. 


É possível informar uma string através do método estático 
WriteLine da classe console . Com isso, já conseguiremos escrever o 
nosso "Olá mundo!”. 


static void Main(string[] args) 


{ 


Console.WriteLine("Olá mundo! "3; 


} 


Este código funcionará sem nenhum problema, mas a janela do 
console será rapidamente fechada. Para evitar isso, você pode 
inserir uma chamada ao método console.Readkey . Este comando fará 


com que seu programa espere que o usuário pressione alguma tecla 
antes de encerrar. 


Agora vamos criar nosso projeto em Ff para realizar a mesma 
tarefa. Para adicionar o projeto, clique na solução em que ele se 
encontra e selecione o menu de contexto: add -> New Project . Desta 
vez, selecione a linguagem Visual Ff e, depois disso, selecione 
Console application, conforme a figura a seguir: 








New Project 
D Recent .NET Framework 4.5.2 + Sortby: Default -| i 
4 installed Fa E 
wals Console Application Visual F# 
4 Templates F 
b Visual C# phy Library Visual F# 
b Visual Basic Es 
b Visual Cit phy Portable Library (.NET 4.5, Windows Store, Silverlight 5, Xam...Visual F# 
b Visual F# Es 
O phy Portable Library (.NET 4.5, Windows Store, Windows Phone... Visual F# 
Python n Ft 
b JavaScript Rhy Portable Library (.NET 4.5, Windows Store, Windows Phone... Visual F# 
b TypeScript n Fx 
vg Portable Library (.NET 4.5, Windows Store, Xamarin) Visual FA 
Game 43 
Build Accelerator Es 
. u Silverlight Library Visual F# 
b Other Project Types P 
Modeling Projects y —F#ł pá 
Donna Click here to go online and find templates. 
Name: PrimeiraAplicacao.Funcional 


Figura 1.2: Criando seu projeto console em F# 


Note que também foi criado um arquivo com o nome Program. 
Vamos abstrair um pouco da sintaxe diferente e tentar criar a 
mensagem de "Olá mundo!", assim como fizemos anteriormente em 
CH. 


O primeiro passo é apagarmos a linha printfn "xa" argv , pois este 
trecho de código não é importante para nós agora. Se utilizarmos 

exatamente o mesmo trecho de código que usamos em Cf, nossa 
aplicação emitirá o mesmo resultado. Nesse caso, dispensamos o 





uso do ponto e vírgula e da chamada ao método Readkey, mas 
teremos de colocar todo o namespace do método, ou seja, 
System.Console.WriteLine , conforme O código: 


[<EntryPoint>] 

let main argv = 
System.Console.WriteLine("Olá mundo! "3 
Q 


Existem poucas coisas que variam entre os dois códigos principais, 
porém, se você comparar os dois arquivos Program.cs € Program.fs, 
verá que existe uma diferença de 13 linhas. Esta é uma das 
características de linguagens funcionais, por serem mais sucintas e 
diretas, até mesmo em códigos extremamente simples. 


Também existe uma forma mais simples para escrevermos um valor 
no console usando Ff. Nessa linguagem, temos o comando printfn 
para escrever na saída que, nesse caso, será o console por conta 
do tipo de aplicação. Então, podemos substituir o trecho de código 
herdado do Cf pelo trecho a seguir: 


[<EntryPoint>] 

let main argv = 
printfn "Olá mundo! " 
Q 


Note que a sintaxe se tornou um pouco diferente. Aqui não 
envolvemos o parâmetro com parênteses e o código se tornou um 
pouco menor. Entenderemos o motivo dessa sintaxe mais tarde no 
livro. 


Agora vamos criar uma função separada para escrever "olá mundo! ". 
Esta deverá ser escrita acima da função main, que foi gerada 
automaticamente. Para declarar uma função em F%, utilizamos a 
seguinte sintaxe: a palavra reservada let , seguida do nome da 
função e seus respectivos parâmetros. Neste caso, não 
receberemos parâmetro nenhum e tudo que a função vai fazer é 
executar O printfn que fizemos anteriormente. 


let olaMundo() = 
printfn "Olá mundo! " 


Por fim, vamos alterar a função main, para que ela passe a chamar 
esta função, conforme o código: 


[<EntryPoint>] 

let main argv = 
olaMundo() 
Q 


Utilizando o Ff interativo 


Agora veremos mais um recurso disponível para o FÉ. Este recurso 
se chama F Sharp Interactive, ou FSI. Ele é muito útil para testar 
pequenos trechos de um programa sem ser necessário executar 
todo o programa em questão. O primeiro passo é abrir a janela do 
FSI. Ela pode ser encontrada em: view -> Other Windows -> F& 
Interactive, OU através do atalho ctrl + alt +F. 


A ideia do FSI, como o nome já propõe, é tornar o Ff interativo. Ou 
seja, você pode utilizar pequenos trechos do código, testá-los, 
executá-los e tudo mais, isso tudo no próprio Visual Studio. 


Agora vamos interagir com a função olamundo que criamos 
anteriormente. Para fazer isso, devemos primeiro selecionar o 
código da função, e depois pressionaremos o botão direito do 
mouse. No menu, é necessário selecionar o item Execute in 
Interactive . Uma outra forma de interagir é selecionar o código 
desejado e pressionar o atalho alt + Enter. 


Para executar a função, basta digitar a chamada dela no console do 
FSI, seguido de dois caracteres ponto e vírgula: o1amundo();; . O 
resultado deve ser similar ao ilustrado na figura a seguir. 


F# Interactive 


Microsoft (R) F& Interactive version 14.0.23413.0 
Copyright (c) Microsoft Corporation. All Rights Reserved. 


For help type ghelp;; 


> olaMundo();; 
Olá mundo! 


val it > unit 
> 





Figura 1.3: FÉ Interactive 


Agora que já cumprimos a formalidade do clássico "olá mundo", 
vamos para um exemplo que fique um pouco mais evidente as 
diferenças dos conceitos. Faremos um método em C# e uma função 
em Ff que gere uma lista com os números de um até dez e exiba a 
soma dos quadrados destes números. 


Primeiro vamos implementar este exemplo em Cf. Criaremos a 
classe calculadora , que terá dois métodos: um para calcular o valor 
de um número elevado ao quadrado, e outro para executar a soma. 
Vamos usar uma sintaxe bastante simples. Primeiro, vamos ao 
método para elevar um número ao quadrado: 


public int ElevaNumeroAoQuadrado(int numero) 


{ 


return numero * numero; 


} 


Nenhum segredo aqui: recebemos um número e retornamos o seu 
valor elevado ao quadrado. Agora vamos ao método que executa a 
soma dos quadrados dos números até dez: 


public int SomaQuadradoDosNumerosAteDez() 


{ 


int soma = ð; 
for (int numero = 1; numero <= 10; numero++) 


{ 


soma += ElevaNumeroAoQuadrado(numero); 


return soma; 


} 


Ainda vamos melhorar o código do método anterior, mas voltaremos 
depois. Agora vamos fazer o mesmo código em FÃ. 


let elevaNumeroAoQuadrado numero = numero * numero 


let SomaQuadradoDosNumerosAteDez = 
[1..10] |> List.map elevaNumeroAoQuadrado |> List.sum 


Você pode notar algumas coisas que podem não ser tão claras 
inicialmente, mas vamos esclarecer os passos da nossa função 
SomaQuadradoDosNumerosAteDez escrita em Ff. Entretanto, não se 
preocupe demais, falaremos mais detalhadamente sobre esta 
sintaxe ao decorrer do livro. 


Esta função pode ser separada em três etapas diferentes: criação 
da lista, transformação para uma lista com os valores elevados ao 
quadrado e a soma dos números da nova lista. Estas três etapas 
estão separadas pelo operador |> (pipe). Este operador é utilizado 
para passar um parâmetro como entrada para a função 
subsequente, tendo como principal objetivo tornar a leitura mais 
clara. 


1. Cria uma lista com os valores de 1 até 10, e utiliza o operador 
pipe para passar esta lista para próxima função; 

2. List.map Cria uma nova lista com os valores da lista original 
elevados ao quadrado; 

3. List.sum executa a soma dos valores da lista gerada em 


List.map. 


Por ter esta quebra de uma função maior em pequenas partes, é 
comum iniciarmos uma linha nova em cada pipe. Esta quebra de 
linha facilita bastante a leitura do nosso código, como no exemplo 
do código a seguir: 


let SomaQuadradoDosNumerosAteDez = 
[1..10] 
|> List.map elevaNumeroAoQuadrado 
|> List.sum 


Agora que temos esta funcionalidade implementada nas duas 
linguagens, podemos chegar a algumas conclusões: 


e Em F#, foi necessário escrever menos código; 
e Em F#, não temos nenhuma declaração de tipo; 
e Em Ff, conseguimos testar nosso código através do FSI. 


Essa comparação ainda não é totalmente justa, pois podemos 
melhorar nosso código C# para uma versão um pouco mais 
moderna dele. 


public int SomaQuadradoDosNumerosaAteDez() 


{ 


return Enumerable.Range(1, 10) 
.Select (ElevaNumeroAoQuadrado) 
.Sum(); 


} 


Agora estamos utilizando o LINQ, uma funcionalidade muito 
poderosa do C#. Podemos notar que o código se tornou muito mais 
similar, isso porque o LINQ utiliza vários conceitos de programação 
funcional. 


LINQ: LANGUAGE-INTEGRATED QUERY 


LINQ é um padrão de consulta desenvolvido na plataforma .NET 
para buscar, unir, armazenar e atualizar dados. Através dele, 


você pode manipular dados tanto em coleções de objetos, banco 
de dados e até XMLs. Para saber mais sobre LINQ, acesse: 
http://bit.ly/msdnLINQ. 





Entretanto, nossas conclusões em boa parte ainda são verdadeiras. 
Mesmo os códigos estando mais parecidos, ainda há uma 
burocracia maior para escrevermos a versão Cf e existem mais 
ruídos no código. 


Precisamos informar delimitadores de linha com o ponto e vírgula e 
delimitadores de escopos com parênteses e chaves. Estes tipos de 
delimitadores não existem em FZ, já que, nesta linguagem, espaços 
em branco possuem importância. Estes espaços que delimitam 
escopo e as linhas são delimitados através de sua própria quebra. 


Outro ponto levantado é que, em F#, não precisamos declarar os 
tipos. Mas não se engane, não se trata de uma linguagem 
fracamente tipada. Se deixarmos o mouse sobre o parâmetro numero 
da função ElevaNumeroAoQuadrado , podemos conferir que ele é de fato 
do tipo int. 






let elevaNumeroAoQuadrado! numero = numero * numero 


“let SomaQuadradoDosNumerosAteDe “2! numero : int 


[1..10] 
|> List.map elevaNumeroAoQuadrado 
|> List.sum 


Figura 1.4: Parâmetro com tipo inferido 


Se tentarmos executar esta função via FSI passando por parâmetro 
uma string, teremos o seguinte resultado: 


FX Interactive 


val elevaNumeroAoQuadrado : numero:int -> int 





C: lusersigabrilappDatalLocalNTempistdin(3,23): error FS0001: This expression was expected to have type 
but here has type 


string 
>| 


Figura 1.5: Erro, era esperado um int e não uma string 


Recebemos um erro, pois era esperado um valor do tipo int e foi 
recebido um valor do tipo string . Mas afinal, como o F# sabe que 
essa função precisa receber um inteiro? 


O F# possui um mecanismo chamado de Type Inference, ou seja, 
inferência de tipo. Este mecanismo consegue inferir que o 
parâmetro numero da função ElevaNumeroaoQuadrado precisa ser do tipo 
inteiro, devido ao fato de que o nosso código faz uma chamada para 
ele enquanto está iterando uma lista de valores deste tipo. 


O CH possui um mecanismo com uma ideia parecida, porém muito 
menos poderosa, com a palavra reservada var . No CX, esta palavra 
reservada depende de contexto e só faz avaliações diretas, 
diferente do que vimos em nosso código Ff. 


Outra vantagem que podemos tirar do F# é o próprio FSI, que já 
comentamos. Ao terminar a função que eleva um número ao 
quadrado, já podemos testá-la no FSI e verificar se ela foi codificada 
corretamente. Note que isso é um teste com um propósito diferente 
dos testes unitários (falaremos deles mais adiante no livro). 


1.4 Resumo 


Este capítulo lhe mostrou alguns dos motivos para se programar 
utilizando o paradigma funcional, e foram feitas algumas 
comparações entre os paradigmas funcional e orientado a objetos. 
Mostramos alguns benefícios deste paradigma e a sua relevância. 


Como já foi citado, não há momento melhor para aprender 
programação funcional do que agora. Enfrentamos diariamente 
problemas que requerem soluções escalonáveis e distribuídas. 


Também vimos as influências do paradigma funcional nas 
linguagens mais populares, utilizando como exemplo o Cf e o LINQ, 
tecnologia incorporada na plataforma .NET. Além disso, tivemos 
nosso primeiro contato com o Ff e foi realizada uma comparação 
entre um código Cf totalmente imperativo, um código F# e uma 
refatoração do código em Cf, incorporando os conceitos do 
paradigma funcional. 


Por fim, mostramos alguns benefícios que a linguagem FÊ oferece, 
incluindo o FÊ Interactive. No próximo capítulo, veremos alguns 
conceitos fundamentais por trás deste paradigma: efeitos colaterais, 
imutabilidade e expressões. 


Você pode encontrar os códigos escritos neste capítulo em: 


www.bit.ly/funcional-Cap1. 





CAPÍTULO 2 
Conceitos fundamentais 


O paradigma funcional existe há bastante tempo e várias linguagens 
o adotam. Elas podem lidar com alguns conceitos de formas 
diferentes, mas tentaremos abordar os tópicos fundamentais que 
orbitam por praticamente todas as linguagens que incorporam este 
paradigma. 


O primeiro tópico que vamos discutir é sobre como nós, 
desenvolvedores, representamos ou alteramos o estado de nosso 
programa. No paradigma da Orientação a Objeto, é comum 
gerenciarmos o estado do programa através de propriedades 
armazenadas em nossos objetos, enquanto a programação 
funcional faz este gerenciamento através de expressões. 


O fato de termos objetos armazenando estados que podem ser 
alterados ao longo do programa faz com que tenhamos de enfrentar 
alguns problemas que a maior parte dos desenvolvedores se 
condicionou a não enxergar mais. Vamos codificar um pouco de Cf 
para identificarmos alguns deles! 


2.1 Acoplamentos e dependências implícitas 


Para fins didáticos, o código fornecido no GitHub está separando 
cada capítulo em projetos e soluções diferentes. Porém, sinta-se à 
vontade para utilizar a mesma solução do capítulo anterior, se assim 
desejar. 


Vamos tratar de um problema bem comum. Criaremos uma classe 
que verifica se uma data está em um determinado período de 
tempo. Para isso, teremos o nosso método de comparação e duas 
propriedades do tipo DateTime . 


public class PeriodoDeTempo 


{ 
public DateTime DataInicial { get; set; } 


public DateTime DataFinal ( get; set; 5 


public bool VerificarSeDataEstaEntreOPeriodo 
(DateTime dataParaTestar) 


return dataParaTestar.CompareTo(DataInicial) >= 0 
&& dataParaTestar.CompareTo(DataFinal) <= 0; 


} 


Com esse código, já temos nossa classe de período. Agora vamos 
utilizá-la para fazer alguns testes e analisar alguns dos problemas 
que ela possui. Para testar este código, criaremos um objeto desta 
classe no método main , definindo uma data inicial e uma final. 


static void Main(string[] args) 


{ 
PeriodoDeTempo periodo = new PeriodoDeTempo(); 
periodo.DataInicial = DateTime.Parse("20/08/2016"); 
periodo.DataFinal = DateTime.Parse("31/08/2016"); 

} 


Após isso, criaremos outras datas e executaremos o teste, conforme 
o código: 


DateTime[] datasParaTeste = new DateTime[] 


{ 
DateTime.Parse("18/08/2016"), 
DateTime.Parse("22/08/2016"), 
DateTime.Parse("01/09/2016") 
> 


foreach (DateTime dataParaTestar in datasParaTeste) 


{ 


bool resultadoDaVerificacao = 
periodo.VerificarSeDataEstaEntreOPeriodo(dataParaTestar); 


Console.writeLine(resultadoDaVerificacao); 


Console.Readkey(); 


No exemplo anterior, teremos a saída: False, True € False, 
respectivamente. Utilizando a classe da forma correta, podemos 
notar que ela funciona da forma esperada. Entretanto, se olharmos 
mais atentamente, podemos perceber que a funcionalidade desta 
classe é quebrável. 


Quando criamos o objeto PperiodoDeTempo , NÓS preenchemos as 
propriedades DataTnicial € DataFinal . Mas o que ocorrerá caso 
esquecermos de alguma delas? A resposta é: teremos 
comportamentos indesejados. 


Caso o programador que usar nossa classe não preencha alguma 
das propriedades citadas, ela assumirá o valor mínimo de um 
DateTime, € a comparação de intervalos pode ter um comportamento 
não esperado. 


É importante notar que a propriedade do tipo DateTime assume o 
valor mínimo por ser uma struct. Em casos em que a 


propriedade é um objeto e não é preenchida, seu valor é tratado 
como null, e uma tentativa de acesso a esta propriedade 
poderia lançar uma exceção do tipo system.NullReferenceException . 





O problema do método verificarseDataEstaEntreoPeriodo é chamado 
de acoplamento temporal, ou dependência de ordem. Isso 
significa que implicitamente este método precisa ser cnamado 
somente depois do preenchimento das propriedades de datas que 
definem o período. 


Além do problema de esquecer de preencher as propriedades, nada 
garante que, ao longo do tempo, nosso objeto não sofrerá 
alterações. Dessa forma, mesmo fazendo uma comparação de 


datas utilizando o mesmo objeto, isso acarretará em resultados 
diferentes. 


Após imprimir o resultado das comparações no console, vamos 
alterar a propriedade patarinal para O valor DateTime.Maxvalue . ISSO 
faz com que ela receba o valor mais alto possível para um DateTime. 
Depois da alteração, faremos novamente o teste: 


periodo.DataFinal = DateTime.MaxValue; 
Console.WriteLine("Resultado após a alteração:"); 


foreach (DateTime dataParaTestar in datasParaTeste) 


{ 


bool resultadoDaVerificacao = 
periodo.VerificarSeDataEstaEntreOPeriodo(dataParaTestar); 
Console.writeLine(resultadoDaVerificacao); 


} 


Tanto na primeira quanto na segunda comparação, estamos 
utilizando o mesmo objeto, mas devido ao seu armazenamento de 
estado, obtivemos resultados diferentes. Isso não é 
necessariamente uma coisa ruim, mas quando o foco é o paradigma 
funcional, deve-se evitar manter este tipo de comportamento no 
programa. 


Um mesmo método (ou função) executado pelo mesmo objeto e 
mesmo parâmetro deve retornar o mesmo valor. Para evitar que um 
objeto sofra alterações de estados, precisamos aplicar um conceito 
conhecido como imutabilidade. 


Como o próprio nome já sugere, imutabilidade é a incapacidade de 
alterar um valor, ou de mudar um valor. Ou seja, um objeto imutável 
sempre terá o mesmo estado, e veremos que, por mais estranho 

que isso pareça inicialmente, é algo muito positivo para seu código. 


Agora vamos criar uma nova classe chamada PeriodoDeTempoImutavel , 
na qual tentaremos aplicar este conceito para nossa classe CÊ. 
Inicialmente, você pode copiar todo o código da classe anterior e 
vamos alterá-lo aos poucos para percebermos as mudanças. 


O primeiro problema que vamos remediar é o fato de que o 
programador precisava se lembrar de preencher as duas 
propriedades de data, e a solução disso é bastante simples. Apenas 
precisamos criar um construtor que receba essas propriedades por 
parâmetro. Dessa forma, toda vez que alguém criar um objeto desta 
classe, terá de passar as duas datas do período. 


public PeriodoDeTempoImutavel(DateTime dataInicial, DateTime dataFinal) 


{ 


DataInicial = dataInicial; 
DataFinal = dataFinal; 


} 


Se alterarmos o objeto que usamos em nosso método main para um 
objeto do tipo PeriodoDeTempoImutavel , já conseguimos ver o reflexo 
de nossa alteração. 


PeriodoDeTempoImutavel periodo = new PeriodoDeTempoImutavel(); 


Figura 2.1: Construtor com propriedades obrigatórias 


Com isso, garantimos que o programador não esquecerá de 
preencher as propriedades que definem o período. Porém, ainda 
precisamos resolver o segundo problema. Para que não seja 
possível alterar as propriedades de data, basta bloquearmos a 
visibilidade do setter da propriedade para private, certo? Sim e não. 


Vamos entender melhor essa resposta com a continuidade de nosso 
exemplo. Primeiro vamos até nossa classe para colocarmos o 
modificador de visibilidade private nas propriedades. 


public DateTime DataInicial { get; private set; + 
public DateTime DataFinal ( get; private set; + 


eriodo.DataFinal = DateTime.MaxValue; 


[9] (local variable) PeriodoDeTempolmutavel periodo 


The property or indexer 'PeriodoDeTempolImutavel.DataFinal' cannot be used in this context because the set accessor is inaccessible 


Figura 2.2: Propriedade com setter privado 


Quando simplesmente colocamos os métodos modificadores como 
privados, chamamos isso de imutabilidade externa, porque o único 
modo de alterar os valores do objeto é através de métodos dele 
mesmo. Restringimos ainda mais, entretanto ainda é possível alterar 
o valor do objeto; ou seja, isso torna nosso objeto externamente 
imutável, mas internamente mutável. 


Apesar de mais protegido, o fato de nosso objeto ainda poder ser 
mutável pode causar problemas. Um deles é bastante popular e é 
conhecido como efeito colateral. 


2.2 Efeitos colaterais e imutabilidade 


Antes de entendermos como resolver o problema, é fundamental 
entendermos o que é o problema. Para fins didáticos, imagine que 
você tenha alergia a um determinado alimento. 


Por engano, você acabou ingerindo-o e teve uma reação alérgica. 
Você vai ao médico, toma o remédio e algum tempo depois sua 
alergia está contida, entretanto, você está se sentindo sonolento. 


Quando você ingeriu a medicação, tudo que você queria era conter 
sua alergia, mas devido à composição química do remédio, ele 
acabou fazendo seu corpo ter mais reações do que isso e o deixou 
com sono. Esta sonolência é um efeito colateral do remédio que 
você ingeriu. 


Na programação, um efeito colateral possui um conceito bastante 
similar: você executa um determinado método ou função, e algum 


impacto inesperado ocorre, como alguma alteração de valor em uma 
variável do objeto ou até em uma variável global. Mas por que efeito 
colateral é necessariamente um problema? 


Efeitos colaterais em geral fazem com que suas funções sejam 
mentirosas. Ao declarar a assinatura de sua função, você define os 
parâmetros que ela espera e o que ela deve retornar. Entretanto, 
quando uma função possui efeito colateral, ela gera não só seu 
valor de retorno declarado, como também altera valores de escopos 
maiores ou globais, o que pode ser entendido como valores 
"escondidos" de retornos ou não declarados. 


Uma função que gera efeito colateral precisa ser lida por completo 
para que o desenvolvedor realmente entenda como ela interage 
com o sistema. Além disso, estas funções tendem a ser muito mais 
difíceis de se testar isoladamente, porque elas dependem de 
estados preexistentes no sistema. Falaremos mais detalhadamente 
sobre isso no capítulo sobre funções, agora vamos fazer um 
exemplo para ilustrar este problema. 


Na nossa classe periodoDeTempoImutavel , aS propriedades DataTnicial 
€ DataFinal possuem o modificador de visibilidade private, então 
elas não podem ser alteradas fora da própria classe. Porém, não há 
nenhum bloqueio para alterações internas. 


Vamos criar um método chamado adicionarbias , que receberá um 
inteiro como parâmetro e somará este número aos dias das duas 
datas, como no exemplo a seguir. 


public void AdicionarDias(int dias) 


{ 
DataInicial = DataInicial.AddDays(dias); 
DataFinal = DataFinal.AddDays(dias); 


} 


Pronto, agora podemos voltar ao main de nosso programa e alterar 
os valores das propriedades de data chamando o método que 
criamos. Se inserirmos uma chamada e refizermos a comparação, 


poderemos ter resultados diferentes. Logo, nosso problema de 
acoplamento temporal ainda existe. 


foreach (DateTime dataParaTestar in datasParaTeste) 


{ 
bool resultadoDaVerificacao = 
periodo.VerificarSeDataEstaEntreOPeriodo(dataParaTestar); 
Console.writeLine(resultadoDaVerificacao); 
} 


periodo.AdicionarDias(30); 


foreach (DateTime dataParaTestar in datasParaTeste) 


{ 
bool resultadoDaVerificacao = 
periodo.VerificarSeDataEstaEntreOPeriodo(dataParaTestar); 
Console.writeLine(resultadoDaVerificacao); 
} 


Com o exemplo que vimos, podemos perceber que pouco adianta 
termos apenas a imutabilidade externa, já que qualquer método 
público pode alterar os valores. Ou seja, melhoramos um pouco o 
controle das alterações, mas elas ainda podem ocorrer. 


Felizmente, o C# possui a funcionalidade conhecida como readonly 
e, com ela, podemos definir que uma propriedade só pode ser 
alterada no construtor da classe. A sintaxe fica um pouco mais 
trabalhosa, mas garantimos a imutabilidade externa e interna. 


O primeiro passo será criarmos OS fields referentes às nossas 
propriedades na classe PeriodoDeTempoImutavel . 


Em CX, os atributos privados de uma classe são chamados de 


fields, e por convenção seus nomes devem possuir um 
underscore ( _ ) como prefixo. 





private readonly DateTime dataInicial; 
private readonly DateTime dataFinal; 


Agora temos de alterar as propriedades que já existiam para 
retornar estes valores. Além disso, excluiremos o método set. 


public DateTime DataInicial { get { return dataInicial; ) 3 
public DateTime DataFinal { get { return dataFinal; ) 5 


Com estas alterações, alguns problemas de compilação vão ocorrer, 
tanto no construtor da classe quanto no método que adiciona os 
dias para as datas. Tudo o que precisamos fazer no construtor é 
alterar a atribuição que estava vinculada à propriedade para o field. 


public PeriodoDeTempoImutavel 
(DateTime dataInicial, DateTime dataFinal) 


“dataInicial = dataInicial; 
_dataFinal = dataFinal; 


SINTAXE CH 6.0 


A partir da versão 6.0 do C#, é possível simplificar a sintaxe de 

propriedades readonly . Nestas versões, tudo o que você precisa 
fazer é remover o método set, e a própria linguagem infere que 
a propriedade é readonly , sem que seja necessário criar um field 


para isso. 


public DateTime DataInicial ( get; + 
public DateTime DataFinal ( get; + 


Neste caso, o construtor continua atribuindo os valores para as 
propriedades. 





A alteração em nosso método que adiciona dias é um pouco maior. 
Afinal, neste caso não podemos (e nem devemos) alterar os valores 
dos fields. O que devemos fazer é criar uma nova instância de um 


objeto de período de tempo com as novas datas e retornar este 
novo objeto. 


Para fazer isso, temos de alterar o tipo de retorno no método de 
void para o tipo da própria classe, e construir o objeto alterado. 


public PeriodoDeTempoImutavel AdicionarDias(int dias) 


{ 


return new PeriodoDeTempoImutavel 
(DataInicial.AddDays(dias), DataFinal.AddDays(dias)); 
} 


Com esta implementação, garantimos a imutabilidade interna de 
nosso objeto. Mesmo não alterando em nada nosso código do 
método main , agora as comparações realizadas com o mesmo 
objeto sempre terão o mesmo resultado, finalmente nos livrando do 
acoplamento temporal. 


É comum a imutabilidade causar estranheza em um primeiro 
momento, mas se olharmos um pouco mais de perto, podemos 
perceber alguns exemplos disso dentro da própria linguagem. Um 
exemplo é a classe string . Quando executamos os métodos 

Replace € Substring , por exemplo, não temos nossa variável 
alterada; em vez disso, temos como retorno uma nova string 
alterada pelo método, exatamente como fizemos com nosso período 
de tempo. 


Ainda podemos fazer algumas alterações em nosso código. Como 
nossas funções alteram mais o estado do objeto, não há motivos 
para elas serem um método de instância, podemos torná-las 
estáticas. Dessa forma, precisamos receber por parâmetro um 
objeto do tipo PeriodoDeTempoImutavel , conforme o código: 


public static PeriodoDeTempoImutavel AdicionarDias 
(PeriodoDeTempoImutavel periodo, int dias) 


return new PeriodoDeTempoImutavel ( periodo.DataInicial.AddDays(dias) 


3 


periodo.DataFinal.AddDays(dias)); 
} 


Podemos fazer o mesmo no método verificarseDataEstaEntreoPeriodo : 


public static bool VerificarSeDataEstaEntreOPeriodo 
(PeriodoDeTempoImutavel periodo 
» DateTime dataParaTestar) 


return dataParaTestar.CompareTo(periodo.DataInicial) >= O 
&& dataParaTestar.CompareTo(periodo.DataFinal) <= 0; 


} 


Com essas alterações, os métodos se tornam menos acoplados e 
mais "verdadeiros". Tudo o que nossos métodos precisam para 
executar suas operações é recebido por parâmetro, e ambos geram 
apenas um retorno, sem nenhum efeito colateral. 


Claro que temos de lembrar de que a forma de invocar estes 
métodos em nosso método main deve ser alterada de: 


periodo.VerificarSeDataEstaEntreOPeriodo(dataParaTestar); para 
PeriodoDeTempoImutavel.VerificarSeDataEstaEntreOPeriodo(periodo, 
dataParaTestar); 


Ainda existe um problema em nosso código. Por conta de o Cf ter 
sua natureza mutável, nosso programa ainda fica sucessível ao 
desenvolvedor para evitar alterações de instância. Conseguimos 
bloquear alterações das propriedades do objeto, mas não 
conseguimos bloquear que o desenvolvedor aponte a variável para 
uma nova instância, ou até mesmo atribua um valor nu11 . Quanto a 
isso, teremos de aceitar como uma característica da linguagem. 


Diferente do C#, o F# é naturalmente imutável, desde as 
propriedades encapsuladas até os valores primitivos. Vamos fazer o 
mesmo exemplo para comparar as diferenças. 


O primeiro passo é criar o arquivo no qual vamos inserir o código do 
período de tempo, e chamar este arquivo de PeriodoDeTempo , assim 
como chamamos em CÊ. 


Antes de continuarmos, vamos resolver uma particularidade do FÃ 
que pode nos gerar problema. A notação usada para identificar a 
função main de um aplicativo de console funciona apenas se a 
função estiver no último arquivo da solução, logo, a ordem dos 
arquivos da solução é importante. 


Felizmente, o Visual Studio facilita nosso trabalho. Ao pressionar o 
botão direito em um dos arquivos da solução, o menu de contexto 
terá as opções: Move Up e Move Down, cujo os atalhos são: Alt + 


seta para cima € Alt + seta para baixo. 


Fá Power Tools > 
4 v“|F%| ConceitosFundamentais.Funcional 

É Open b =W References 

Open With... a F* Assemblylnfo.fs 
A ay) App.config 

Move Up Alt+Up Arrow 

AL PeriodoDeTempo.fs 

+ Move Down Alt+ Down Arrow e 

Add Above > 

Add Below > 
<> View Code F7 


Figura 2.3: Alterar a ordem dos arquivos na solução F# 


Agora sim, vamos criar nossa representação do período de tempo 
em F#. Não é necessário focar nos detalhes da linguagem que 
usaremos agora. Neste momento, vamos implementar em F# 
apenas para podermos fazer uma comparação entre os dois 
códigos. Você verá os conceitos de modules € types aqui, mas eles 
serão detalhados posteriormente no livro. 


Primeiro, para organização do código, criaremos O module 
PeriodoDeTempo . Tudo o que é necessário saber agora é que esta é 
uma forma de organizar nossas funções que pertencem ao mesmo 
domínio de aplicação. No caso, todo o código que inserimos na 
classe do Cf sobre período de tempo estará nesse módulo. 


Para declarar um módulo, basta utilizar a palavra reservada module 
seguida de seu nome: module PeriodoDeTempo . À Seguir vamos 
declarar que estamos usando o namespace system, afinal, 
trabalharemos com o tipo DateTime . 


module PeriodoDeTempo 
open System 


UTILIZANDO OPEN 


No Fã, a palavra reservada open faz com que você possa omitir 
o nome do namespace para acessar suas classes, métodos e 


funções. No exemplo que estamos construindo, caso não 
utilizássemos este comando, seria necessário explicitar 
System.DateTime em vez de apenas DateTime. 





No contexto de F%, não teremos a classe PperiodoDeTempo ; em vez 
disso, teremos um tipo que representa esta estrutura. Este tipo terá 
as mesmas propriedades que a nossa classe CH. Para declarar um 
novo tipo, utilizamos a palavra reservada type seguida do nome do 
tipo e de suas propriedades separadas por ponto e vírgula ( ; ), 
conforme o código a seguir. 


type Periodo = { DataInicial:DateTime; DataFinal:DateTime + 


Com esta declaração, temos o nosso tipo periodo . Também é 
importante notar que já possuímos imutabilidade interna e externa 
apenas com este código, como já citado, o F# por padrão assume 
estas características. 


Agora vamos criar a função para representar o método 
adicionarDias . Nossa função deve receber um período e um número 
de dias, e retornar um novo período: 


let adicionaDias periodo dias = { 
DataInicial = periodo.DataInicial.AddDays dias 
DataFinal = periodo.DataFinal.AddDays dias 
} 


Como já foi citado, F# é uma linguagem bastante concisa. Esta 
função é apenas uma linha de comando, mas quebramos em várias 
linhas para melhor visualização. Ela apenas cria um novo período 
com as datas novas, já contendo a soma dos dias. 


Porém, em F%, não precisamos declarar a palavra reservada new 
para criar novos valores. Além disso, por padrão, a última linha de 
uma função define o retorno dela, então não precisamos utilizar a 
palavra reservada return . E por fim, o mecanismo de inferência de 
tipos já identifica os tipos dos parâmetros e do retorno da função 
automaticamente. 


let adicionaDias periodo dias = 


{ 


Dat val adicionaDias : periodo:Periodo -> dias:float -> Periodo 


L 
} ? Full name: PeriodoDeTempo.adicionaDias 


Figura 2.4: Mecanismo de inferência de tipos F# 


Outro ponto que é importante notarmos é que não é possível gerar 
um período sem preencher as duas datas. Caso tentarmos fazer 
isso, ocorrerá um problema de compilação. 


let adicionaDias periodo dias = 


fa 
DataInicial = periodo.DataInicial.AddDays dias 
EE 3 


No assignment given for field 'DataFinal' of type 'PeriodoDeTempo.Periodo' 


Figura 2.5: Construtor com fields obrigatórios 


Outra pequena diferença entre as linguagens que estamos 
utilizando é que, por convenção no F#, as funções iniciam com letra 
minúscula, e no C# os métodos são descritos com a primeira letra 
maiúscula. 


Agora vamos criar a segunda função referente ao período de tempo: 
verificarSeDataEstaEntreOPeriodo . Ela receberá como parâmetro um 
período e um DateTime , e deverá realizar a mesma comparação que 
fizemos em CÊ anteriormente. 


let verificarSeDataEstaEntreOPeriodo periodo dataParaTestar = 
dataParaTestar.CompareTo periodo.DataInicial >= O && 
dataParaTestar.CompareTo periodo.DataFinal <= 0 


Se tentarmos criar esta função com a mesma sintaxe da função 
anterior, encontraremos um pequeno problema. Na primeira linha 
desta função, estamos utilizando o método compareto que pertence 
ao DateTime . Mas nesse momento o mecanismo de inferência de 
tipo não conseguiu compreender que o parâmetro dataParaTestar 
precisa ser do tipo DateTime . Isso ocorre pois o método compareTo 
existe em vários namespaces diferentes na plataforma .NET. 


Para auxiliarmos o mecanismo de inferência de tipos, podemos 
explicitar o tipo que desejamos. Para fazer isso, é necessário 
envolver o parâmetro entre parênteses e seguir a sintaxe: nome do 


parâmetro: tipo. 


let verificarSeDataEstaEntreOPeriodo periodo (dataParaTestar:DateTime) = 


Com essa mudança, nossa função passa a ser identificada sem 
nenhum erro e já podemos testar nosso código. Vamos ao arquivo 
Program.fs para construir uma versão bastante similar ao que 
fizemos em CÊ. O primeiro passo é construir nosso período. 


[<EntryPoint>] 
let main argv = 
let periodo = 


{ DataInicial= DateTime.Parse "20/08/2016" 
; DataFinal = DateTime.Parse "31/08/2016" 3 


Agora vamos criar o array com as datas que testaremos. Para criar 
um array, é necessário usar as arrays clamps, definidas pela sintaxe 

[| conteúdo |] . Cada elemento do array pode ser separado por 
ponto e vírgula, ou quebra de linhas. 


let datasParaTeste = 


[| 
DateTime.Parse "18/08/2016" 


DateTime.Parse "22/08/2016" 
DateTime.Parse "01/09/2016" 
|] 


Agora já temos nosso período criado e o array contendo as datas 
que vamos testar. Vamos fazer o loop para iterar este array e exibir 
o retorno no console. Para iterar uma coleção, é comum usarmos 
funções, mas falaremos disso mais tarde, pois no momento 
utilizaremos o bom e velho for. 


A sintaxe do comando for no F# é definida por: for variavel in 
colecao do . Dentro deste laço de repetição, testaremos todas as 
datas do array e imprimiremos o resultado, conforme o código a 
seguir. 


for data in datasParaTeste do 

let dataEstaNoPeriodo = verificarSeDataEstaEntreOPeriodo periodo 
data 

printfn "%b" dataEstaNoPeriodo 


Com isso, já temos nosso resultado correto em F#. Agora vamos 
analisar algumas possibilidades. Foi comentado que não há muito o 
que fazer no C# para proteger o programador de alterar o ponteiro 
do objeto de período de tempo, ou até mesmo fazer com que ele 
assuma o valor nu11 . Mas será que isso é possível em F#? 


A resposta é sim. E o melhor de tudo, é que não precisamos fazer 
nada, pois automaticamente o Ff já protege que a referência seja 
alterada. Portanto, tentativas de novas atribuições não serão aceitas 
e gerarão erros ainda em tempo de compilação. Caso você tente 
atribuir um valor para O periodo criado anteriormente, você pode 
receber o seguinte erro: 


eriodo = adicionaDias periodo 2.0 
This expression should have type 'unit, but has type 'bool”. 


Figura 2.6: Atribuição com o operador de igualdade 


Este problema acontece porque o operador = no F# é usado para 
comparações e inicializações, mas não para atribuições. O FÊ 
possui um operador diferente para atribuição de valores, e este 
operador é definido por uma seta para a esquerda (variavel <- 
valor). 


DIFERENÇA ENTRE INICIALIZAÇÃO E ATRIBUIÇÃO 


A operação de inicialização ocorre quando um valor é inserido 
em uma variável durante sua declaração. As operações que 
atribuem valores após este período são conhecidas como 
atribuições. 





O interessante é que, mesmo ajustando a sintaxe, ainda não 
conseguimos alterar o valor de nosso período, mas a mensagem 
recebida agora explica um pouco mais sobre o problema. 


eriodo <- adicionaDias periodo 2.0 


This value is not mutable 


Figura 2.7: Valor imutável por padrão 


Como já citado anteriormente, o Fá cria a proteção de imutabilidade 
por padrão. Então, não poderemos alterar o valor do período, 
resolvendo nosso problema de acoplamento temporal por completo. 


2.3 Enfatize expressões 


No paradigma funcional, é comum termos uma ênfase maior nas 
expressões (expressions) do que nas declarações (statements). Em 
geral, isso ocorre porque expressões constroem blocos de código 
mais seguros e, normalmente, com menos problemas. 


Antes de começarmos a discutir sobre expressões e declarações, é 
preciso definir o que estes dois termos significam. Em linguagens de 
programação, a terminologia expressão indica uma combinação 
entre valores e funções/métodos para criar um resultado. Já uma 
declaração é uma unidade de execução que indica uma ação que 
não retorna nenhum tipo de valor. 


Para que as declarações façam alguma interação do sistema, é 
fundamentalmente necessário que elas causem efeitos colaterais, 
pois elas não retornam nenhum valor. Ou seja, uma declaração 
sempre vai causar um efeito colateral no seu sistema. 


Existem alguns benefícios em utilizar expressões. O primeiro, e 
talvez mais importante, é o poder de composição ou combinação. 
Em uma expressão, cada trecho menor pode ser extensível. A figura 


a seguir mostra um exemplo matemático de uma composição de 
uma expressão em FÃ. 


let a = 10 

let b = 20 + 3 

let c=5+a+b 

let resultado = a+ b - c 


Note que cada trecho da expressão final que gera um resultado é 
uma nova expressão, em que: 


e a recebe 10; 

e b recebe o resultado de uma expressão menor (20 + 3); 

e c recebe o resultado de uma expressão que utiliza o número 5 
e as duas expressões anteriores; 

e O resultado final é a soma das duas primeiras expressões 
menos a terceira expressão. 


A matemática é naturalmente composta por expressões e, portanto, 
naturalmente expansível. Veremos como fazer isso com nosso 
código. 


Em linguagens que seguem os conceitos puramente funcionais, não 
existe suporte para declarações, pois neste tipo de linguagem não 
podem ocorrer efeitos colaterais. Apesar do Ff não ser uma 
linguagem puramente funcional, ela segue o mesmo princípio. Em 
F#, todas as coisas são expressões: valores, funções e até 
controles de fluxo, como desvios condicionais e laços de repetição. 


No caso do Cf, na própria linguagem é feita uma distinção entre 
declarações e expressões, mas mesmo assim é possível enfatizar o 
uso de expressões. Isso torna seu código mais compacto e aumenta 
a segurança contra erros. Vamos ver o exemplo. 


Primeiro faremos um trecho de código em Cf utilizando 
declarações. Vamos voltar para nossa aplicação console e 
criaremos um método simples para entendermos o problema. O 


método deve escrever o número 2 no console, caso o parâmetro 
informado seja um número par. 


void ExemploUsoDeDeclaracao(int numero) 


{ 
int resultado = 0; 
bool numeroPar = numero % 2 == ®; 


if (numeroPar) 


{ 


resultado = 2; 


Console.WriteLine(resultado); 
Console.Readkey(); 


} 


Agora vamos discutir alguns dos problemas deste código. Em 
primeiro lugar, estamos inicializando o valor da variável resultado 
antes de fazermos a operação que gera este mesmo resultado. Isso 
implica que, em algum momento, o valor desta variável pode ser 
alterado e causar resultados inesperados. 


Além disso, não fica explícito de nenhuma forma o valor do 
resultado quando o número não for par. Se analisarmos o método, 
veremos que será o valor de inicialização, mas não há como 
sabermos se esse comportamento foi colocado propositalmente, ou 
se o desenvolvedor apenas esqueceu de fazer o caso else. Em 
códigos mais complexos, isso pode se tornar um problema ainda 
maior. 


Vamos fazer agora o mesmo código, ainda em C#, com uma 
abordagem focando um pouco mais em expressões. 


void ExemploUsoDeExpressao(int numero) 
{ 
bool numeroPar = numero % 2 == ®; 
int resultado = numeroPar ? 2 : Q; 
Console.WriteLine(resultado); 


Console.Readkey(); 
} 


Neste segundo exemplo, o caso else é muito mais explícito, pois o 
desenvolvedor obrigatoriamente precisou implementá-lo. Também 
podemos notar que não há como atribuirmos o valor ao resultado 
antes do cálculo que o gera, pois a inicialização dele já utiliza a 
expressão. 


Em um cenário mais realista, também seria ideal separarmos o 
trecho que gera o resultado do cálculo que escreve no console, 
refatorando em dois métodos distintos. Agora vamos implementar 
este mesmo cenário em F#, conforme o código: 


let exemploUsoDeExpressao numero = 
let resultado = 
if numero % 2 = Q then 2 else O 


printfn "%i" resultado 


Note que o único if presente no Ff é uma expressão, ou seja, em 
F# até mesmo o if retorna valor. Os benefícios deste código em F# 
são os mesmos do código em C%, apenas com a sintaxe um pouco 
mais clara. Geralmente, o FÊ utiliza a linguagem mais sucinta, mas 
neste caso, ele opta por usar if-then-else em vez dos operadores 

? e :, devido à sua clareza. 


2.4 Resumo 


Neste capítulo, nos aprofundamos um pouco mais nos conceitos do 
paradigma funcional, sempre fazendo um paralelo a já conhecida 
Orientação a Objetos. Vimos como os efeitos colaterais podem ser 
problemáticos para o código, principalmente a longo prazo. Acredito 
que grande parte dos programadores já enfrentaram algum tipo de 
problema devido a um efeito colateral, e infelizmente isso ainda é 
bastante comum. 


Aprendemos também a garantir imutabilidade interna e externa (na 
medida do possível) em CX, e foi visto que essa garantia existe 
fortemente no F%. Mostramos também algumas diferenças entre 
utilizar declarações e expressões, e como elas podem ajudar a 
tornar seu código mais claro e protegido contra erros no futuro. 


No próximo capítulo, veremos os conceitos sobre funções e valores, 
e o significado de uma função ser um membro de primeira ordem. 
Veremos também o que são funções de alta ordem, e como criá-las 
e utilizá-las. Além disso, serão abordados conceitos muito 
importantes em programação funcional: o currying e a aplicação 
parcial. 


Você pode encontrar os códigos escritos neste capítulo em: 


www.bit.ly/funcional-Cap2 





CAPÍTULO 3 
Funções e valores 


Apesar de já termos implementado algumas funções em F#, ainda 
não falamos nada sobre a teoria das funções, nem mesmo sobre a 
sintaxe e sobre boas práticas para criar uma boa função (ou 
método). 


Afinal, o que são as funções? Por mais óbvia que esta resposta 
possa parecer, sua resposta pode estar errada sob a ótica do 
paradigma funcional. 


No contexto de Orientação a Objetos, é comum descrevermos as 
funções (ou métodos) como um trecho de código que define o 
comportamento de um determinado objeto. Já sob o ponto de vista 
do pensamento funcional, as funções são coisas isoladas. Elas 
não precisam estar associadas a alguma outra coisa, como uma 
classe, por exemplo. Desta forma, elas podem ser classificadas 
como membros de primeira ordem. 


3.1 Funções como membros de primeira ordem 


Isso significa que as funções podem ser passadas como parâmetro 
para outras funções, e podem ser retornadas por uma função e até 
atribuídas a uma variável. Mas se as funções não descrevem o 
comportamento dos objetos, o que elas fazem? 


De modo geral, elas geram um resultado (retorno) a partir de uma 
operação que pode envolver os parâmetros recebidos. Esta 
definição é um tanto quanto vaga, mas é bastante difícil concretizar 
algo tão abstrato quanto uma função. 


Vamos utilizar uma analogia ao mundo real para tentar melhorar a 
compreensão. Imagine que uma função é como uma pequena 
máquina em uma linha de produção, e todo item que passa por essa 
máquina é transformado em um novo resultado, como ilustra a 
figura a seguir. 


maçã -> laranja 


óu më 


Figura 3.1: Transformando uma maçã em uma laranja 





Na figura, uma maçã é transformada em uma laranja após passar 
pela máquina (função). Note que acima da máquina está o termo 
que define o tipo desta função. Esta notação segue o padrão: 


parâmetro -> retorno . 


Também é interessante notar que há um encapsulamento do 
processamento. Não precisamos saber de fato o que acontece 
internamente na função. Tudo que precisamos saber é o seu tipo, 
com isso conseguimos fornecer os parâmetros e obter o resultado. 


Identificamos o que é uma função, mas e quanto aos parâmetros e 
retornos, o que são eles? Normalmente, estes dados são chamados 
de variáveis, e provavelmente você está familiarizado com este 
termo. 


Mas lembre-se do capítulo passado: um dos conceitos fundamentais 
por trás do pensamento funcional é a imutabilidade. Logo, estes 


dados não são mais chamados de variáveis, pois eles não podem 
variar, ou seja, não podem alterar o seu valor. Normalmente esses 
tipos de dados são chamados de valores. 


Em FX, a forma de definir valores e funções é através da palavra 
reservada 1et . Não é coincidência utilizarmos a mesma palavra 
reservada. O motivo disso é que, na verdade, as funções também 
são valores. A única diferença entre valores simples e valores de 
funções é que a função ainda precisa ser avaliada para retornar o 
resultado, enquanto um valor simples já aponta para o resultado 
propriamente dito. 


Sendo assim, funções são tratadas como qualquer outro valor que 
referencia um dado na memória. Com a diferença de que o local na 
memória para qual ela aponta é uma operação e não uma 
informação pronta, conforme ilustra a figura a seguir. 


Ten 10 


let 





Figura 3.2: Representação na memória de um valor simples e de um valor de função 


Tanto no F# quanto no C# podemos armazenar a referência de um 
valor de função, basta declararmos um valor normalmente. Vejamos 
primeiro em FÊ: 


let referenciaParaSomaCom5 = somaCom5 


O mesmo acontece em Cf, mas neste caso precisamos explicitar o 
tipo do objeto. 


Func<int, int> referenciaParaSomaCom5 = SomaCom5; 


Para representar um método em Cf, usamos Func<T1, T2, T3, TN... 
T16, TResult>, em que T1 até t16 representa o tipo dos parâmetros, 
e TResult representa o tipo do retorno. Caso o método não tenha 
retorno, é necessário utilizar action<T1, T2, T3, TN... T16> em vez de 


Func. 


Com isso, podemos tratar as funções como qualquer outro valor. Na 
verdade, por quanto mais tempo você estiver acostumado com 
programação funcional, mais essa linha de raciocínio fará sentido, 
não há motivos para tratarmos funções diferentes de outros tipos de 
dados. 


Armazenar a referência de uma função é uma prática bastante 
comum em programação funcional, e utilizamos isso na criação de 
funções aninhadas a outras funções. Agora vamos ver como 
podemos organizar nossas funções dentro de um programa, sejam 
elas aninhadas ou não. 


3.2 Organizando suas funções 


Esta seção será um guia para o modo correto de organizar suas 
funções em seu projeto. Não existe nenhuma verdade absoluta 
quanto a isso e existem diferentes abordagens para tratar o assunto. 
O que será mostrado aqui é um conjunto de regras e boas práticas 
que são interessantes adotar. 


Trataremos de dois tipos de função: 


1. Funções aninhadas; 
2. Funções de nível de aplicação. 


Funções aninhadas 


Apesar de ser possível utilizar funções aninhadas em C#, esta 
prática é muito mais comum em F%, devido à facilidade que a 
linguagem oferece para trabalhar desta forma. Funções aninhadas 
são uma forma muito eficiente de encapsular pequenas funções que 
serão utilizadas em uma função principal, mas que não precisam ser 
expostas para toda a aplicação. 


Vamos para um exemplo em que usaremos uma função aninhada, e 
esta vai imprimir um texto no console indicando se o número 
passado por parâmetro é par ou ímpar. A função que valida se o 
número é par ou ímpar e as funções que escrevem o texto no 
console devem ser aninhadas à função principal, conforme o código: 


let escreveSeNumeroEParOulImpar numero = 
let verificaSeONumeroEPar numero = numero % 2 = 0 
let escreveNumeroPar numero = 
printfn "O número %i é par” numero 
let escreveNumeroImpar numero = 
printfn "O número %i é ímpar" numero 


if verificaSeONumeroEPar numero then 
escreveNumeroPar numero 

else 
escreveNumeroImpar numero 


Se avaliarmos nossa função no FÊ Interactive, obteremos o 
resultado esperado. Entretanto, estamos ignorando uma condição 
especial de funções aninhadas que pode simplificar nosso código. 


Devido ao fato de as funções aninhadas fazerem parte do escopo 
da função principal, não é necessário que o parâmetro numero seja 
repassado. As funções aninhadas já possuem acesso a ele. Vamos 
começar refatorando a função verificaseoNumeroEPar : 


let escreveSeNumeroEParOuImpar numero = 
let verificaSeONumeroEPar = numero % 2 = 0 


E nosso código continua funcionando corretamente! Agora tudo o 
que precisamos fazer é remover os parâmetros das outras funções 
aninhadas: 


let escreveSeNumeroEParOuImpar numero = 
let verificaSeONumeroEPar = numero % 2 = 0 
let escreveNumeroPar = printfn "O número %i é par” numero 
let escreveNumeroImpar = printfn “O número %i é ímpar” numero 


if verificaSeONumeroEPar then 
escreveNumeroPar 

else 
escreveNumeroImpar 


Testando novamente, notamos que ocorre um comportamento 
indesejado. 


let escreveSeNumeroEParOulmpar numero = 
let verificaSeONumeroEPar() = numero % 2 = 0 
let escreveNumeroPar = printfn “O número %i é par" numero 


z 


let escreveNumeroImpar = printfn “O número %i é impar” numero 


if verificaSeONumeroEPar() then 
escreveNumeroPar ni 

else > 
escreveNumeroImpar s 


val escreveSeNumeroEParOuImpar : numero:int -> unit 





> escreveSeNumeroEParOuImpar 2;; 
O número 2 é par 
O número 2 é impar 


> escreveSeNumeroEParOuImpar 3;; 
O número 3 é par 
O número 3 é impar 





Figura 3.3: Problema ao remover parâmetros das funções aninhadas 


Agora toda vez que invocamos a função escreveseNumeroEParouImpar é 
escrito no console tanto que o número é par quanto que o número é 
impar. Qual o motivo disso? 


O motivo é bastante simples: as funções e os valores são tratados 
(e declarados) da mesma forma em F#. Desta forma, ao 
removermos o parâmetro das funções escreveNumeroPar € 
escreveNumeroImpar , transformamos estas duas funções em valores 
simples. 


Transformando-as em valores simples, elas recebem apenas o 
resultado da função de escrita, sendo assim, as duas funções de 


escrita são avaliadas e executadas. Apenas o resultado destas 
funções é armazenado em escreveNumeroPar @ escreveNumeroImpar . 


Neste caso, precisamos que o valor recebido seja o valor de função 
para as operações de escrita, e não o valor simples resultante delas. 


Note que a função verificaseonumeroEPar também sofreu esta 
transformação e passou a ser um valor simples. A diferença aqui é 
que não há nenhum motivo para este valor continuar sendo um valor 
de função. 


Não há problemas se a verificação do número é feita antes ou 
somente no comando if , então ele pode se tornar um valor simples 
sem que haja alteração no comportamento. Para evitar esta 
transformação em valores simples nos outros casos, é necessária a 
sintaxe: escreveSeNumeroEParOuImpar() . Com isso, informamos que esta 
declaração é um valor de função (mesmo sem parâmetros) e não 
um valor simples. Os detalhes disso serão tratados em capítulos 
posteriores. 


Também não podemos esquecer de colocar os parênteses na 
chamada do método. Caso contrário, obteremos como retorno a 
referência para a função, e não o resultado dela. Segue o código 
com a versão final desta função: 


let escreveSeNumeroEParOuImpar numero = 
let verificaSeONumeroEPar = numero % 2 = 0 
let escreveNumeroPar() = printfn "O número %i é par” numero 
let escreveNumeroImpar() = printfn "O número %i é ímpar" numero 


if verificaSeONumeroEPar then 
escreveNumeroPar() 

else 
escreveNumeroImpar() 


Para mostrar as diferenças entre as linguagens, faremos o exemplo 
anterior também em C#. É interessante notar que como sempre, 
apesar da escrita ser diferente, as características fundamentais e os 
conceitos se repetem. Em Cf, também é possível criar funções 


aninhadas. E estas também podem acessar os parâmetros da 
função principal através do escopo. 


Veja o mesmo código em CH: 


public void EscreveSeNumeroEParOuImpar (int numero) 


{ 


bool verificaSeONumeroEPar = numero % 2 == ®; 
Action escreveNumeroPar = 
() => Console.WriteLine( 
string.Format ("O número (0) é par", numero)); 


Action escreveNumeroImpar = 
() => Console.WriteLine( 
string.Format ("O número (0) é ímpar", numero)); 


if (verificaSeONumeroEPar) 
escreveNumeroPar(); 
else 
escreveNumeroImpar(); 


} 


Naturalmente o código se torna mais inchado, já que a linguagem 
não é totalmente otimizada para isso. Outro fator da linguagem que 
influencia a solução é que, no caso do C#, o ideal seria manter a 
verificação do número dentro do próprio if. Para fazer isso, 
transformaremos a variável verificaseoNumeroEPar em um método. 


No mesmo exemplo em FÆ#, foi dito que não haveria problemas em 
manter este valor como um valor simples. Por que em CÊ é 
necessário transformá-lo em uma função? 


A resposta é: imutabilidade. Em FX, existe a garantia de que o 
valor do número não será alterado dentro do corpo do método, 
afinal, a linguagem garante que o valor seja imutável. No entanto, 
não há esta garantia em CÊ. Felizmente, podemos alterar isso com 
poucos ajustes, basta transformar a variável verificaseonumeroEPar de 
valor simples para um valor de função, conforme o código: 


void EscreveSeNumeroEParOuImpar (int numero) 


{ 


Func<bool> verificaSeONumeroEPar = () => numero % 2 == 0; 
Action escreveNumeroPar = 
() => Console.WriteLine( 
string.Format ("O número (0) é par”, numero)); 


Action escreveNumeroImpar = 
() => Console.WriteLine( 
string.Format ("O número (0) é ímpar", numero)); 


if (verificaSeONumeroEPar()) 
escreveNumeroPar(); 

else 
escreveNumeroImpar(); 


} 


Esta é a implementação final do C#. Mas como já foi dito, é 
interessante visualizarmos os exemplos nas duas linguagens para 
termos uma base de comparação; porém, em C# esta não é uma 
prática comum. 


Em FX, é importante tomar alguns cuidados com funções aninhadas, 
pois elas podem facilmente se tornar um complicador para seu 
código. É aconselhável que uma função tenha poucas funções 
aninhadas, e principalmente, em apenas um nível. Funções 
aninhadas que contenham outras funções aninhadas dentro delas 
geralmente complicam o código e são indícios de código ruim ou 
confuso. 


Além das funções aninhadas, também existem as funções em nível 
de aplicação, que são as mais comuns do seu programa. São as 
que constituem nossa aplicação, ou seja, toda função aninhada (em 
um nível) é aninhada a uma função de nível de aplicação. 


Veremos agora como organizar nossas funções de nível de 
aplicação através de módulos e namespaces. 


Organizando as funções em nível de aplicação 


As funções de nível de aplicação são organizadas através de 
módulos e namespaces. Na verdade, todo código feito em FÉ utiliza 
automaticamente esta organização. 


Cada arquivo F# ( .fs ) criado automaticamente declara um módulo 
para todo arquivo. Veja o exemplo que foi criado para funções 
aninhadas: 


module FuncoesAninhadas 


“let escreveSeNumeroEPar0Oulmpar numero = 
let verificaSeONumeroEPar() = numero % 2 = 0 
let escreveNumeroPar() = printfn “O número %i é par" numero 
let escreveNumeroImpar() = printfn “O número %i é impar” numero 


if verificaSeONumeroEPar() then 
escreveNumeroPar() 

else 
escreveNumeroImpar() 


Figura 3.4: Declaração automática de módulo 


Os módulos são definidos através da palavra reservada module e do 
nome do próprio módulo. Por padrão, o Ff cria automaticamente um 
módulo com o mesmo nome do arquivo, mas não há nenhuma 
obrigatoriedade ou regra nisso. 


Vamos criar alguns exemplos bastante simples para 
compreendermos como os módulos interagem entre si. Primeiro crie 
um novo módulo chamado FuncoesDeEscrita € uma função para 
escrever um nome no console: 


module FuncoesDeEscrita 
let escrever nome = printfn "seu nome é: %s" nome 


Se deixarmos o mouse sobre a função, podemos notar que, abaixo 
da assinatura da função, é descrito: Full name: 
FuncoesDeEscrita.escrever , conforme a figura: 


let escrever nome = printfn “seu nome é: %s"” nome 


val escrever : nome:string -> unit 


Full name: FuncoesDeEscrita.escrever 


Figura 3.5: Propriedade "Full name" de uma função 


A sintaxe descrita na propriedade Full name lembra bastante da 
sintaxe de uma classe estática do CH. Na verdade, nos bastidores é 
exatamente isso que o compilador do F# faz; cada módulo se torna 
uma classe estática e cada função se torna um método estático. 


Pode-se definir a função escrever em C# como: 


static class FuncoesDeEscrita 


{ 


static void Escrever(string nome) 


{ 


Console.WriteLine( 
string.Concat("seu nome é: ", nome)); 


} 


Em C#, os métodos devem pertencer a uma classe; em F#, não é 
totalmente diferente. Neste caso, as funções devem pertencer a um 
módulo. A diferença principal é que um módulo funciona apenas 
como um agrupador e uma classe C# pode ser muito mais do que 
ISSO. 


Assim como fizemos com as funções aninhadas, é possível criar 
módulos aninhados. A declaração de módulos aninhados possui 
uma sintaxe um pouco diferente. Em casos de módulos aninhados, 
é necessário utilizar o operador de atribuição, e as funções 
pertencentes a este módulo devem possuir indentação. 


Vamos criar um módulo aninhado ao módulo FuncoesbeEscrita . Este 
será responsável por escrever uma idade no console e, para isso, 
precisamos criar uma nova função: 


module FuncoesDeEscritaDeNumeros = 
let escrever idade = 
printfn "sua idade é: %i" idade 


Nos dois exemplos criados, a função se chama escrever, mas por 
estarem em módulos diferentes, não acontece nenhum problema de 
compilação, já que o nome completo das funções é diferente. 
Através da criação de diferentes módulos, é possível organizar seu 
código, mas como já citado, este não é o único recurso. Também é 
possível utilizar namespaces. 


Os namespaces do Ff possuem os mesmos objetivos dos 
namespaces do Cf: organizar seu código e evitar colisões de 
nomes. E assim como em C%, um namespace em Ff é o nível mais 
alto de organização, ou seja, um namespace pode conter vários 
módulos, porém não o contrário. 


No caso do F%, os namespaces são opcionais, e um módulo pode 
existir sem que haja um namespace para ele. Mas a hierarquia de 
níveis de organização precisa ser seguida pelas funções, e uma 
função só pode estar dentro de um módulo, nunca diretamente em 
um namespace. 


A declaração de um namespace é feita através da palavra 
reservada namespace seguida de seu nome, e não é necessário 
indentar o código para determinar que ele faz parte de um 
namespace. Para exemplificação, vamos inserir os dois módulos 
criados anteriormente dentro de um namespace chamado modulos , 
conforme o código: 


namespace Modulos 


module FuncoesDeEscrita = 
let escrever nome = printfn "seu nome é: %s" nome 


module FuncoesDeEscritaDeNumeros = 
let escrever idade = printfn "sua idade é: %i" idade 


Note que todos os módulos que pertencem a um namespace se 
tornam módulos aninhados, então utilizam a sintaxe com operador e 
indentação. Depois da inclusão de um namespace, a propriedade 
Full name comentada anteriormente passa a ter sua sintaxe 
completa: namespace .módulo. função . 


Esta propriedade ilustra como é possível invocar estas funções 
através de outros módulos e namespaces. 


Utilizando funções de outros módulos 


Para executar uma função de um outro módulo, mas no mesmo 
namespace, é necessário informar o nome do módulo e da função. 
Caso seja uma função de um namespace diferente, precisamos usar 
o nome completo da função ( Full name ). 


Para realizar um exemplo, é necessário criar um novo módulo. Este 
módulo terá uma função que exibe um nome e uma idade através 
das funções dos módulos criados anteriormente. 


module FuncoesDeEscritaUtilizandoOutrosModulos = 
let escrever nome idade = 
FuncoesDeEscrita.escrever nome 
FuncoesDeEscritaDeNumeros.escrever idade 


Veja que é possível acessar as funções normalmente, desde que se 
use o nome do módulo juntamente com a função. 


Agora vamos criar uma nova função em um novo namespace que 
utilize a função para escrever o nome passado por parâmetro. 
Lembrando de que, neste exemplo, será necessário informar o 
nome completo da função. 


namespace OutroNamespace 


module FuncoesDeEscritaUtilizandoOutroNamespace = 


let escreverNome nome = 
Modulos.FuncoesDeEscrita.escrever nome 


Desta forma, conseguimos acessar as funções de qualquer 
namespace ou módulo de nossa aplicação. Este não é o único jeito, 
pois é possível criar atalhos para os caminhos das funções de 
outros namespaces e módulos. Para fazer isso, temos de incluir os 
caminhos destas funções ao escopo do módulo ou namepasce no 
qual elas são chamadas. 


Para fazer isso, usamos a palavra reservada open, seguida do 
caminho do namespace ou módulo. Por exemplo, é possível 
utilizarmos apenas open Modulos ou especificar um dos módulos do 
namespace: open Modulos.FuncoesDeEscrita . 


namespace OutroNamespace 
open Modulos.FuncoesDeEscrita 


module FuncoesDeEscritaUtilizandoOutroNamespace = 
let escreverNome nome = 
escrever nome 


Dentro deste módulo, podemos usar esta nova função normalmente. 
Veja no exemplo: 


let escreverGabriel() = 
escreverNome "Gabriel" 


Com a utilização do comando open, a escrita das funções é 
bastante simplificada, mas ela também traz um problema. 


Anteriormente criamos uma função para escrever nomes e uma 
para escrever a idade, ou seja, duas funções que recebem tipos 
diferentes de parâmetros. No entanto, estas duas funções se 
chamam escrever . Não há problemas em fazer isso, já que os 
nomes completos destas funções são diferentes, mas o que 
acontecerá se usarmos o comando open nestes dois caminhos? 


Vamos testar! 


namespace OutroNamespace 
open Modulos.FuncoesDeEscrita 
open Modulos.FuncoesDeEscritaDeNumeros 


module FuncoesDeEscritaUtilizandoOutroNamespace = 
let escreverNome nome = 


escrever nome 


let escreverGabriel = 


escreverNome "Gabriel" 





Figura 3.6: Problema com a utilização do comando open 


Perceba que uma de nossas funções passou a gerar erro de 
compilação. Se checarmos, o erro refere-se ao tipo de parâmetro 
esperado. Em nosso exemplo, era esperado um tipo int e estamos 
passando um tipo string. 


Mas por que agora precisamos passar um número inteiro para a 
função escrever? A resposta é bastante simples: a última função 
escrever que foi carregada é a função que pertence ao módulo 


Modulos.FuncoesDeEscritaDeNumeros . 


Este problema é chamado de sombreamento, ou do inglês 
shadowing, porque a função do módulo FuncoesDeEscrita foi 
sombreada pela função do módulo FuncoesDeEscritaDeNumeros . 
Invertendo a ordem dos comandos open, nosso código voltará a 
compilar. Porém, ainda não resolvemos o problema, pois a função 
que recebe uma idade para escrever no console se tornará 
inacessível. 


Para que esta situação não ocorra, é necessário que o 
desenvolvedor também informe o caminho da função, omitindo 
apenas os trechos comuns. Veja este novo exemplo: 


namespace OutroNamespace 
open Modulos 


module FuncoesDeEscritaUtilizandoOutroNamespace = 
let escreverNomeEIdade nome idade = 
FuncoesDeEscrita.escrever nome 

FuncoesDeEscritaDeNumeros .escrever idade 


Para garantir que outros desenvolvedores (ou até você mesmo) não 
causem este problema no futuro, existe o atributo 
RequireQualifiedaccess que podemos inserir em um módulo. Desta 
forma, o compilador não vai permitir que este módulo seja usado em 
um comando open. 










[<RequireQualifiedAccess>] 
- module FuncoesDeEscrita = 
let escrever nome = printfn “seu nome é: %s" nome 


[<RequireQualifiedAccess>] 
-module FuncoesDeEscritaDeNumeros = 
let escrever idade = printfn “sua idade é: %i" idade 


-'module FuncoesDeEscritaUtilizandoOutrosModulos = 

= let escrever nome idade = 
FuncoesDeEscrita.escrever nome 
FuncoesDeEscritaDeNumeros.escrever idade 


namespace OutroNamespace 
-jopen Modulos 
open Modulos.FuncoesDeEscrita 


-jmodule FuncoesDeEscritaUtilizandoOutroNamespace = 

- let escreverNomeEIdade nome idade = 
FuncoesDeEscrita.escrever nome 
FuncoesDeEscritaDeNumeros .escrever idade 


Figura 3.7: Bloquear o comando open via atributo 


Assim eliminamos o problema de sombreamento. Geralmente este 
atributo é utilizado apenas em módulos que possuem funções de 
nomes bastante populares, tais como filter, map, reduce € assim 
por diante. 


Agora que você já deve estar apto para organizar suas funções em 
módulos e namespaces, com funções e módulos aninhados, está na 
hora de compreender como as funções podem ser passadas por 
parâmetro ou obtidas como retorno de outras funções. As funções 
que possuem este tipo de comportamento são conhecidas como 
funções de alta ordem. 


3.3 Funções de alta ordem 


Funções de alta ordem são usadas massivamente em programação 
funcional, e elas vêm sendo incorporadas a linguagens como Cf e 
Java há algum tempo. Neste primeiro momento, vamos utilizar uma 
função de alta ordem que já existe no C# e, para isso, vamos criar 
uma aplicação console. 


Nesta aplicação, criaremos uma classe estática que possui um 
único método para checar se um número é par, como já fizemos 
antes. 


public static class VerificadorNumeroPar 


{ 


public static bool NumeroEPar(int numero) 


{ 


return numero % 2 == 0; 


} 


Agora no método main de nosso programa, vamos criar uma 
coleção de números de zero até dez, e extrair apenas os números 
que são pares para uma outra listagem. 


static void Main(string[] args) 


{ 


List<int> numerosPares = new List<int>(); 
IEnumerable<int> numeros = Enumerable.Range(0, 10); 


foreach (int numero in numeros) 
if (VerificadorNumeroPar . NumeroEPar (numero) ) 
numerosPares . Add (numero) ; 


} 


Com isso, nosso código está validando todos os números da 
coleção, mas existem outras formas de fazer isso, inclusive de uma 
maneira mais elegante. Podemos utilizar o método where da 
biblioteca LINQ já citada, mas antes de fazer isso, vamos entender a 
assinatura deste método. 


public static IEnumerable<TSource> Where<TSource> 


( 
this IEnumerable<TSource> source, 
Func<TSource, bool> predicate 

) 


Figura 3.8: Método Where da biblioteca LINQ 


Note que este método recebe dois parâmetros: source € predicate . 
O primeiro parâmetro é a própria lista que será filtrada. O segundo 
parâmetro, que está destacado na figura, é o método que executará 
o filtro, ou seja, o método where do LINQ pode ser considerado uma 
função de alta ordem, já que um de seus parâmetros é uma função. 


Já vimos anteriormente como o Func do Cf funciona, então 
podemos compreender que a função passada por parâmetro para o 
método where precisa receber como parâmetro um elemento do 
mesmo tipo da lista ( Tsource ), no nosso caso um int, e deve 
retornar um bool. 


Vamos voltar ao nosso código e refatorá-lo utilizando este recurso: 


static void Main(string[] args) 


{ 
IEnumerable<int> numerosPares; 
IEnumerable<int> numeros = Enumerable.Range(0, 10); 
numerosPares = numeros.where(VerificadorNumeroPar.NumeroEPar); 
} 


Com isso, nosso código se torna muito mais elegante e menos 
suscetível a problemas, já que não teremos um laço de repetição 
explícito, ou mesmo um desvio de fluxo. Ainda podemos explorar 
um pouco mais o conceito por trás dessa passagem de um método 
por parâmetro. 


Lembre-se de que o método where esperava um objeto do tipo 
Func<Tsource,bool> . Se foi possível passar o método 
VerificadorNumeroPar .NumeroEPar por parâmetro, quer dizer que ele é 
um objeto deste tipo. Então, é possível atribuí-lo a uma variável, 
conforme o código: 


IEnumerable<int> numerosPares; 

IEnumerable<int> numeros = Enumerable.Range(0, 10); 

Func<int, bool> metodoParaFiltrar = 
VerificadorNumeroPar.NumeroEPar; 


numerosPares = numeros .WwWhere(metodoParaFiltrar); 


Existem casos em que não há necessidade de criar um método para 
realizar uma tarefa pequena, então é comum utilizarmos as 
expressões lambda que citamos no primeiro capítulo. 


EXPRESS ES LAMBDAS 


De acordo com a Microsoft: usando expressões lambda, você 
pode escrever funções locais que podem ser passadas como 


argumentos ou retornadas como o valor de chamadas de 
função. Expressões lambda são particularmente úteis para 
escrever expressões de consulta LINQ. 


Para saber mais, acesse: http://bit.ly/lambda-ms. 





Uma expressão lambda é definida na sintaxe: parâmetro => expressão . 
Ou seja, a única diferença dessa sintaxe para a definição de uma 
função em Ff é a troca da arrow function de -> para =>. 


Vamos criar uma expressão lambda que verifica se o número é par. 
Atribuiremos esta expressão para uma variável do mesmo tipo que 
metodoParaFiltrar , Criada no exemplo anterior. 


Func<int, bool> metodoParaFiltrarViaLambda = 
numero => numero % 2 == 0; 


Agora podemos utilizar tanto a variável metodoParaFiltrar quanto a 
variável metodoParaFiltrarviaLambda NO método where . Entretanto, no 
dia a dia, o mais comum de encontrarmos é a própria expressão 
lambda sendo passada por parâmetro, conforme o exemplo a 
seguir. 


private static void ObterNumerosParesDeUmaLista() 


{ 


IEnumerable<int> numerosPares; 
IEnumerable<int> numeros = Enumerable.Range(0, 10); 
numerosPares = numeros .Where(numero => numero % 2 == 0); 


} 


Esse exercício foi importante para entendermos como funciona os 
valores de funções, que, apesar de serem muito mais usados em 
F#, também existem em CÊ. 


Para fins de exemplo, a seguir está o código em Ff contendo a 
mesma funcionalidade. Temos a função que verifica se o número é 
par e a que filtra uma lista de zero até dez com os números pares. 


let numeroEPar numero = numero % 2 = @ 
let obterNumerosParesDeUmaLista = 
[0..10] 
|> List.filter numeroEPar 


Note que também usamos uma função de alta ordem em Ff, mas 
neste caso ela se chama filter em vez de where . E no exemplo 
anterior, utilizamos uma função comum e não uma expressão 
lambda. Falaremos de expressões lambda em F# mais tarde. 


Agora, para entender melhor a utilização destas funções, vamos 
criar a nossa própria função de alta ordem. Para fins didáticos, 
faremos este exemplo em Ff, já que a própria linguagem possui 
ferramentas para facilitar isso. 


Vamos começar nosso raciocínio criando uma função para escrever 
todos os nomes em uma lista: 


let imprimirNomes() = 
let nomes = ["Gabriel"; "Joãozinho"; "José"; "Mariazinha"] 
for nome in nomes do 
printfn "Olá %s.” nome 


Agora, vamos criar uma nova função com um outro exemplo. Esta 
vai imprimir o dobro do valor de cada elemento de uma lista: 


let imprimirDobroDosNumeros numeros = 
let numeros = [1..10] 
for numero in numeros do 
printfn "%i." ( numero * 2) 


Estes dois códigos funcionam perfeitamente, mas estão escritos 
com um pouco da mentalidade orientada a objetos. 


A primeira coisa que podemos melhorar é remover o hardcode, 
afinal, é quase unânime entre os programadores que o hardcode é 


algo ruim para o código. 


HARDCODE 


Caso você não esteja familiarizado com o termo, quando 
dizemos que algo no código está hardcoded, implica em uma 
comparação ou atribuição fixa em um valor bruto em vez de 
processarmos uma informação externa. 


No exemplo inicial de valor simples ( let dez = 19 ), O valor 10 
está sendo atribuído de forma hardcoded, por exemplo. 





Vamos analisar o que está definido fixo em cada uma das funções e 
remover isso. 


Em nossa função imprimirnomes , temos uma lista de nomes fixa. 
Para tornar nosso método mais genérico, podemos fazer com que 
ele receba a lista que ele vai iterar por parâmetro. 


let imprimirNomes nomes = 
for nome in nomes do 
printfn "Olá %s." nome 


O mesmo acontece com a função imprimirDobroDosNumeros . Podemos 
parametrizar a lista que estamos recebendo por parâmetro. 


let imprimirDobroDosNumeros numeros = 
for numero in numeros do 
printfn "%i." ( numero * 2) 


Ainda temos a multiplicação sendo fixa pelo valor 2, mas ainda não 
estamos prontos para resolver este problema. Voltaremos mais 
tarde para tratar dele. 


Com isso, retiramos o hardcode de nossa função, certo? Não! 
Levando em consideração o pensamento funcional, termos o 
comportamento fixo ou hardcoded também é algo ruim. 


Apesar de haver diferenças entre as ações que são executadas, 
fundamentalmente a estrutura do código é a mesma. Nos dois 
casos, as funções percorrem os elementos de uma lista e executam 
alguma ação sobre cada elemento. 


Considerando que a ação que ocorre sobre cada elemento é uma 
função, e que é possível passar uma função por parâmetro, 
podemos parametrizar isso também. Faremos isso através de uma 
função de alta ordem. 


let executarAcaoSobreElementos lista acao = 
for elemento in lista do 
acao elemento 


Nossa função está muito mais genérica do que antes, mas ainda 
podemos melhorar um pouco, alterando o laço de repetição for 
pela função de alta ordem iter que usamos anteriormente. 


let executarAcaoSobreElementos lista acao = 
lista |> List.iter acao 


Note que, quando executamos a nossa ação através do List.iter, 
não explicitamos a passagem de parâmetro. Isso ocorre porque a 
função de alta ordem iter já espera por parâmetro uma função que 
receba um valor com o tipo de um elemento da lista por parâmetro, 
então a própria função de alta ordem faz este controle e passa o 
parâmetro para esta segunda função. 


Com esta função pronta, podemos usá-la em nossa função 


imprimirNomes . 


let imprimirNomes nomes = 
executarAcaoSobreElementos nomes (printfn "Olá %s") 


Vamos entender melhor como isso funciona. Dada a assinatura da 
função val: executarAcaoSobreElementos : lista:'a list -> acao:('a -> 
unit) -> unit , podemos extrair algumas informações. Esta 
assinatura pode assustar um pouco, mas não é nada demais. 
Vamos entender cada pequena parte dela. 


O trecho val: executaracaoSobreElementos apenas descreve o nome da 
função, nada além disso. O segundo trecho 1ista:'a list indica que 
O primeiro parâmetro é uma lista de um determinado tipo. 


O trecho seguinte acao:('a -> unit) indica que o segundo parâmetro 
é uma função e, mais que isso, indica que esta função recebe por 
parâmetro um valor do mesmo tipo que forma a lista do primeiro 
parâmetro e que ela não retorna nada. 


Por fim, O unit , assim como no trecho anterior, denota que não há 
retorno. Entenderemos melhor o que O unit significa mais tarde; por 
enquanto, basta saber que ele denota que não há retorno. 


Como a função printfn "olá %s" espera por parâmetro uma string e 
a lista de nomes é uma lista composta por strings, cumprimos com a 
assinatura do método executaracaoSobreElementos . Agora vamos 
utilizar este mesmo método para imprimir o dobro dos valores da 
lista de números com a função que criamos antes. 


Peço que tente refatorar o método antes de continuar sua leitura. 
Você encontrará uma situação um pouco diferente. Observe a figura 
a seguir: 


-Jlet imprimirNomes nomes = 
for nome i 


me in nomes do 
printfn "olá %s." nome 


-“Jlet imprimirDobroDosNumeros numeros = 
for numero in numeros do 
printfn "%i." ( numero * 2) 
















-let imprimirDobroDosNumeros numeros = 
executarAcaoSobreElementos numeros 


(printfn "%i.") 
(printfn "Olá %s") 






-“Jlet imprimirNomes nomes = 
executarAcaoSobreElementos nomes 


Figura 3.9: Diferenças na utilização de uma função de alta ordem 


Existe uma diferença básica nestas duas implementações. No caso 
de imprimirnomes (destacado em verde na figura), não manipulamos 
o elemento que estamos iterando na lista, apenas o repassamos por 
parâmetro para a função printfn. 


No caso da função imprimirDobroDosNumeros , executamos uma 
operação de multiplicação e, só depois disso, imprimimos na tela, 
gerando um empecilho em nossa implementação. Mas não se 
preocupe, as soluções são simples. 


A primeira delas é criar uma nova função para multiplicar um 
número individual e imprimir o valor dobrado. Ou seja, faremos uma 
função bastante parecida com a primeira, mas desta vez lidando 
apenas com um número. Com isso, poderemos passar esta nova 
função por parâmetro, conforme o exemplo: 


let imprimirDobroDeUmNumero numero = printfn "%i." ( numero * 2) 


let imprimirDobroDosNumeros numeros = 
executarAcaoSobreElementos numeros (imprimirDobroDeUmNumero) 


A segunda solução é utilizarmos expressões lambda, como já 
fizemos no exemplo com C#. Uma pequena diferença entre a 
definição de expressões lambda no F# é a utilização da palavra 
reservada fun antes de declarar os parâmetros e a própria 
expressão. 


No exemplo a seguir, criamos exatamente a mesma função duas 
vezes, mas a primeira vez com a sintaxe tradicional e a segunda vez 
usando expressão lambda. 


let somaCom5 numero = numero + 5 
let somaCom5ViaLambda = fun numero -> numero + 5 


Podemos então refatorar a função imprimirDobroDosNumeros para 
executar uma expressão lambda. 


let imprimirDobroDosNumeros numeros = 
executarAcaoSobreElementos numeros 
(fun numero -> printfn "%i" (numero * 2) ) 


Fundamentalmente, não há diferenças entre as duas 
implementações, mas temos de estar cientes de que expressões 
lambda são funções que não serão reutilizadas. Então, geralmente 
usa-se esta abordagem apenas para pequenas expressões. 


Agora que já entendemos o conceito e os passos para criarmos 
nossas próprias funções de alta ordem, faremos isso também em 
C#. Você perceberá que teremos de escrever um pouco mais de 
código, mas que os conceitos que permeiam estas implementações 
são os mesmos. 


Vamos começar pela implementação do método 
ExecutarAcaoSobreElementos . ÀS informações que temos depois de 
nossa implementação em F# é que este método precisa receber por 
parâmetro uma lista composta por elementos de um determinado 
tipo, e um método que não retorna nada e recebe por parâmetro um 
objeto do mesmo tipo que os elementos da lista. 


Nosso método deve ser capaz de interagir com listas independente 
do tipo dos elementos na lista. Para fazer isso, precisamos utilizar 


generics. 


GENERICS 


O generics é um recurso que permite a parametrização de um 
tipo. Desta forma, é possível estruturar métodos e classes que 
lidam com objetos mais genéricos. Ele passa a responsabilidade 


de definir o tipo que será usado para o código que utiliza esta 
classe ou método. 


A classe List, por exemplo, usa este conceito e, com isso, 
podemos criar listas de diferentes tipos de objeto. Para saber 
mais, acesse: http://bit.ly/generic-ms. 





Já vimos a sintaxe de um método genérico ( <Tipo> ) quando 
olhamos a implementação do método where . Neste exemplo, o 
método que passaremos por parâmetro não retorna nada, então 
lembre-se de utilizar action em vez de Func, conforme o código: 


public static void ExecutarAcaoSobreElementos<TipoElemento> 
(List<TipoElemento> lista, 
Action<TipoElemento> acao) 


lista.ForEach(acao); 


} 


Agora vamos criar os outros métodos que invocam este método, 
conforme o exemplo feito em F#. 


public static void ImprimirNomes(List<string> nomes) 


{ 


ExecutarAcaoSobreElementos (nomes, Console.WriteLine); 


public static void ImprimirDobroDosNumeros(List<int> numeros) 


{ 


ExecutarAcaoSobreElementos (numeros, 
numero => Console.WriteLine(numero * 2)); 


} 


Infelizmente, para este tipo de implementação, o C# ainda é 
bastante denso. Porém, isso é apenas um pequeno complicador, 
nada impeditivo. 


Se olharmos para as implementações dando menos importância 
para as pequenas diferenças sintáticas e mais importância para o 
conceito por trás de valores de funções, podemos perceber que as 
implementações são basicamente iguais. 


Após criarmos o exemplo em C#, é hora de voltarmos ao F#. Vamos 
continuar resolvendo alguns problemas de código que geramos ao 
longo deste desenvolvimento. 


Atualmente, uma de nossas funções está imprimindo o dobro de um 
determinado número, mas como dito antes, não devemos manter 
este valor fixo; é hora de parametrizá-lo. Para isso, criaremos uma 
função nova que se parecerá muito com a atual 
imprimirDobroDeUmNumero , mas esta receberá por parâmetro o número 
multiplicador. 


let multiplicarEimprimirNumero multiplicador numero = 
printfn "Xi." ( numero * multiplicador) 


Bastante similar, certo? Agora vamos tentar utilizar esta função em 
nosso método que imprimi a listagem de números. É possível 
chegar a uma solução com os conhecimentos que você já adquiriu 
neste capítulo. Basta invocar esta nova função através de uma 
expressão lambda, passando os parâmetros. 


let imprimirListaDeNumeros multiplicador numeros = 
executarAcaoSobreElementos numeros 
(fun numero -> 
multiplicarEimprimirNumero multiplicador numero ) 


Este método vai funcionar, mas existem formas mais elegantes do 
que esta para fazer isso. Porém, para chegarmos nesta nova 
solução, é necessário compreendermos um novo conceito, o 
currying. 


3.4 Currying e aplicações parciais 


O conceito de currying foi cunhado originalmente pelo britânico 
Christopher Strachey, homenageando assim o matemático Haskell 
Brooks Curry. Haskell foi um matemático brilhante que se destacou 
muito na área de lógica matemática. Ele viveu até 1982, mas seu 
legado continua até hoje. 


Cada um de seus nomes nomeia uma linguagem de programação 
diferente: Haskell, uma linguagem funcional bastante popular; 
Brook GPU, uma linguagem para processamento em GPU; e 
Curry, uma linguagem derivada da Haskell. 


Vamos voltar ao Cf para tentarmos resolver o problema da seção 
anterior. O primeiro passo é criar um novo método, assim como já 
realizado em Ff, para multiplicar um determinado número e imprimir 
seu valor. Lembre-se de que o objetivo desta implementação é a 
remoção da multiplicação por dois que atualmente está fixa no 
código. 

public static void MultiplicarEimprimirNumero(int multiplicador, int 
numero) 


{ 


Console.WriteLine(numero * multiplicador); 


public static void ImprimirNumeros(List<int> numeros, int multiplicador) 


{ 
ExecutarAcaoSobreElementos(numeros, 
numero => MultiplicarEimprimirNumero(multiplicador, numero)); 


Com isso, as implementações em Cf e Ff encontram-se no mesmo 
ponto. 


A nova solução que será apresentada é uma forma de não 
precisarmos gerar uma expressão lambda na chamada do método 
ExecutarAcaoSobreElementos . Não há nada de tão errado nisso, porém 
isso faz com que o código fique mais espalhado e difícil de mapear. 
Lembre-se de que sempre é mais interessante manter as 
responsabilidades bastante separadas e claras. 


Entretanto, há um problema ao tentar remover esta expressão 
lambda. Não é possível passar O método MmultiplicarEimprimirNumero 
diretamente por parâmetro para O método ExecutaracaoSobreElementos , 
porque o tipo (ou assinatura) deste método não é igual ao tipo 
esperado. É nesta hora que o currying entra em ação. 


Basicamente, o currying é uma forma de reescrever as funções e 
métodos que recebem um ou mais parâmetros. Com esta forma de 
escrita, as funções são quebradas em subfunções, em que cada 
uma delas espera menos parâmetros do que as anteriores. 


Vamos refatorar a função multiplicarEimprimirNumero . Agora ela deve 
esperar pelo primeiro parâmetro e retornar uma subfunção que 
espere apenas o número por parâmetro. Vejamos como esta 
implementação deve ser feita: 


public static Action<int> MultiplicarEimprimirNumero(int multiplicador) 


{ 


Action<int> imprimirNumero = 
(numero) => Console.WriteLine(numero * multiplicador); 


return imprimirNumero; 


} 


Vamos analisar o que estamos fazendo neste método de uma forma 
mais detalhada. O método agora recebe apenas um parâmetro: o 
número que será usado como multiplicador antes da impressão dos 


números da lista. Dentro deste método, foi criado um submétodo 
chamado imprimirNumero . 


Este novo método recebe por parâmetro apenas o número da lista. 
Note que ele utiliza a variável multiplicador, mesmo não passando 
esta variável por parâmetro. Como vimos antes, imprimirNumero é um 
método aninhado, então é possível ter acesso às variáveis que 
pertencem ao escopo do método a qual ele faz parte. 


Este método aninhado passou a ser o retorno do método principal, 
desta forma, o método que inicialmente precisava de dois 
parâmetros foi diluído em dois métodos, em que cada um recebe um 
único parâmetro. Foi criada uma action para armazenar o método 
aninhado, mas podemos diminuir um pouco de código retornando a 
expressão lambda diretamente. 


public static Action<int> MultiplicarEimprimirNumero 
(int multiplicador) 


return (numero) => 
Console.WriteLine(numero * multiplicador); 


} 


Perceba que o código está quebrando o método em etapas 
menores, e isso muda bastante o comportamento do método 
principal. Vamos ver como funcionará a utilização deste método em 
um contexto diferente deste problema. 


public static void Program() 


{ 


Action<int> multiplicaPor5EDepoisImprimi 
MultiplicarEimprimirNumero(5); 
Action<int> multiplicaPor3EDepoisImprimi 


MultiplicarEimprimirNumero(3); 


} 


Perceba que agora o método não resulta mais no término da 
operação, e sim em uma função intermediária que espera o número 
inteiro que será multiplicado pelo parâmetro passado anteriormente. 


Podemos armazenar estas funções em referências na memória e, 
com isso, manipulá-las à vontade, inclusive invocando-as 
normalmente como se fossem métodos preexistentes no programa. 


Crie uma variável que receba o valor 10 e, a seguir, faça com que 
este valor seja passado para estas duas funções que retornaram 
após a nossa refatoração. 


public static void Program() 


{ 


Action<int> multiplicaPor5EDepoisImprimi 
MultiplicarEimprimirNumero(5); 

Action<int> multiplicaPor3EDepoisImprimi 
MultiplicarEimprimirNumero(3); 

int numeroQueSeraMultiplicado = 10; 


multiplicaPor5EDepoisImprimi (numeroQueSeraMultiplicado); 
multiplicaPor3EDepoisImprimi (numeroQueSeraMultiplicado); 


} 


Ao executar este método, obtemos o seguinte resultado: 


> Program(); 
Action<int> multiplicaPor5EDepoisImprimi 
Action<int> multiplicaPor3EDepoisImprimi 


Figura 3.10: Resultados obtidos nas funções 


Com esta implementação, passamos a utilizar o conceito de currying 
para quebrar a função maior (que continha uma assinatura diferente 
do que era necessário) em duas funções, em que cada uma delas 
esperava apenas um parâmetro. Desta forma, conseguimos passá- 
la para a função de alta ordem. 


Um ponto importante que precisa ser pensado no momento de 
aplicar ou não este conceito é o momento correto de invocar a 
função que realizará a ação. Quando não usamos currying, a função 


realiza sua operação fundamental assim que é chamada. E quando 
utilizamos este conceito, a função só realizará sua operação 
fundamental na chamada de sua última subfunção, como foi 
ilustrado no exemplo anterior. 


Quando invocamos o método multiplicarEimprimirNumero , ainda não 
temos o resultado da operação, já que recebemos apenas a função 
intermediária. Agora podemos alterar o método Imprimirnumeros para 
chamar este novo método: 


public static void ImprimirNumeros(List<int> numeros, int multiplicador) 


{ 


Action<int> multiplicaEDepoisEImprimi = 
MultiplicarEimprimirNumero (multiplicador); 


ExecutarAcaoSobreElementos (numeros, multiplicaEDepoisEImprimi); 


} 


Agora que já entendemos o conceito de currying, vamos realizar 
esta implementação em F#. Faremos a mesma quebra do método 
que já fizemos em C#. 


let multiplicarEimprimirNumeroCurrying multiplicador = 
let imprimirNumero numero = 
printfn "%i." ( numero * multiplicador) 


imprimirNumero 
Com isso, temos a função utilizando o conceito de currying, certo? 


A resposta é sim, mas felizmente não precisamos realizar este 
trabalho, podemos manter o código em F# exatamente da forma que 
estava antes: 


let multiplicarEimprimirNumero multiplicador numero = 
printfn "%i." ( numero * multiplicador) 


No início do capítulo, descrevemos que a notação que define uma 
função é: argumento -> retorno , então vamos fazer uma análise da 
assinatura desta função: (int -> int -> unit). 


argumento -> retorno 





int -> 


argumento -> retorno 


Figura 3.11: Análise do tipo da função multiplicarEimprimirNumero 


Conforme ilustrado na figura, o tipo da função já indica que ela está 
sendo quebrada em funções intermediárias. O motivo disso é que, 
no FÆ#, o currying é feito de maneira automática pelo compilador. 
Além disso, também é possível utilizar uma técnica conhecida como 
aplicação parcial. 


Esta técnica permite a criação de funções com múltiplos 
parâmetros, mas que podem ser invocadas com uma quantidade 
menor de parâmetros. Quando isso ocorre, a função 
automaticamente retorna uma nova função intermediária que espera 
os parâmetros restantes da função principal. Vamos ver isso 
funcionando na prática. 


Vamos alterar a função imprimirListaDeNumeros . Agora utilizaremos a 
função multiplicarEimprimirNumero , a Mesma que criamos para 
esperar dois parâmetros, mas a invocaremos passando apenas o 
multiplicador. 


Com isso, o retorno deste método será uma função intermediária 
que espera um número da lista por parâmetro. Isto é, o retorno 
deste método poderá ser passado por parâmetro para a função 
executarAcaoSobreElementos , conforme O código a seguir. 


let imprimirListaDeNumeros multiplicador numeros = 
let imprimirNumero = multiplicarEimprimirNumero multiplicador 
executarAcaoSobreElementos numeros imprimirNumero 


Como você pode ver, por conta da aplicação parcial, é possível 
invocar a função multiplicarEimprimirNumero de duas formas distintas: 


1. Passando todos os parâmetros e obtendo o resultado; 
2. Passando menos parâmetros e obtendo uma função 
intermediária que espera o restante dos parâmetros. 


Note também que criamos uma função aninhada chamada 
imprimirNumero , que pode tornar o entendimento do método mais 
claro. Entretanto, ela não é necessária, podemos realizar a 
aplicação parcial direto na chamada da função de alta ordem: 


let imprimirListaDeNumeros multiplicador numeros = 
executarAcaoSobreElementos numeros 
(multiplicarEimprimirNumero multiplicador) 


Aplicação parcial e currying são dois pontos muito fortes em 
programação funcional e que criam uma reutilização de código 
bastante eficiente. Além disso, a partir destes conceitos, é possível 
compreender melhor como a linguagem funciona. 


3.5 Resumo 


O entendimento dos assuntos abordados neste capítulo é muito 
importante para a continuidade do livro. Aqui foi realizada uma 
abordagem mais teórica a respeito de funções, e foram feitos 
exemplos ilustrando as diferenças entre valores simples e valores 
de função. 


Além disso, foi visto como organizar as funções de uma aplicação, 
utilizando namespaces, módulos e funções aninhadas: com 
exemplos de como utilizar funções que pertencem a outros módulos 


e namespace; e com e sem a utilização do comando open, 
mostrando o problema de sombreamento e como contorná-lo. 


Por fim, foram abordados os assuntos: funções de alta ordem, 
currying e aplicação parcial. Todos são de fundamental importância 
para a programação funcional e também podem ser aplicados em 
algumas linguagens orientadas a objetos, como a CH. Tudo isso foi 
visto fazendo um paralelo nas linguagens .NET C# e FX, para que 
você tenha os assuntos abordados de diferentes perspectivas. 


No próximo capítulo, veremos como os operadores em Ff também 
se comportam como funções, e como compor uma nova função 
através de funções já existentes na aplicação. 


Todos os códigos escritos neste capítulo estão disponíveis em: 


www .bit.ly/funcional-Cap3. 





CAPÍTULO 4 
Funções, operadores e mais funções 


No capítulo anterior, vimos como organizar as funções e alguns dos 
comportamentos que elas possuem dentro do paradigma funcional. 
Porém, existem diversos tópicos sobre funções que veremos ao 
decorrer do livro, afinal, funções são o que há de mais importante na 
programação funcional. 


Este capítulo é uma continuação direta do capítulo anterior, 
permanecendo nas funcionalidades e nos conceitos que giram em 
torno das funções. Aqui, em específico, focaremos bastante na 
linguagem Fá, já que a maioria das características que serão 
mostradas neste capítulo não é implementada nativamente em CÊ. 


Vamos começar com a definição de operadores como funções. 


4.1 Operadores como funções 


Os operadores em F# também são funções, então possuem os 
mesmos comportamentos. Sendo assim, pode-se concluir que é 
possível realizar a aplicação parcial que vimos no capítulo anterior 
sobre eles. 


Será feito um exemplo simples com o operador + (mais). 
Inicialmente, será feita uma função que soma qualquer número com 
o 3. Primeiro, a versão tradicional do código: 


let somaCom3 numero = numero + 3 


Talvez você não consiga visualizar agora, mas existem informações 
desnecessárias neste trecho de código. Podemos reduzi-lo e ainda 
assim manter sua legibilidade, utilizando aplicação parcial no 
operador +. 


let somaCom3 = (+) 3 


Esta é uma sintaxe um pouco diferente daquela com a qual você 
pode estar acostumado, mas é um recurso bastante poderoso. 
Utilizaremos com frequência ao longo do livro. 


Note que, para a função funcionar corretamente, é necessário 
circundar o operador com parênteses, e que, mesmo omitindo os 
parâmetros necessários, a função é do tipo int -> int, Ou seja, ela 
recebe o parâmetro que será somado ao três. Mas por que isso 
acontece”? 


Vamos ver passo a passo o que ocorre no compilador: 


let somaClom3 = (+) 3 
oj’ ©) 







let (+) numero1 numero2 = numero1 + numero2 


(int -> int -> int) 


o 


Figura 4.1: Análise da aplicação parcial do operador (+) 


No passo 1, o operador + é avaliado. Como ele é uma função que 
espera dois parâmetros, ao ser avaliado sem nenhum parâmetro, é 
retornada uma função que ainda espera pelos dois parâmetros, 
através da aplicação parcial. 


Após isso, esta função que foi retornada é executada passando 
apenas um parâmetro (3), logo, o resultado é mais uma função 
intermediária que espera pelo parâmetro restante. Esta última é 
atribuída para o valor somacom3 . Com isso, O valor somacom3 é uma 
função que terá a mesma assinatura da função atribuída a ela: 
espera o parâmetro restante do operador + para executar a 
operação de soma e retornar o resultado. 


Podemos generalizar um pouco mais nossa aplicação parcial para 
criar um gerador de somas, sem fixarmos o número 3 como no 
exemplo anterior. 


let somaCom = (+) 


let somaComio = somaCom 10 
let somaCom2 = somaCom 2 


Este exemplo funciona normalmente com outros operadores 
também. 


let multiplicaPor = (*) 


let multiplicaPor2 = multiplicaPor 2 
let multiplicaPor4 = multiplicaPor 4 


Podemos criar funções que geram novas funções para uma 
aplicação, como já foi dito. Este é um recurso bastante interessante 
e poderoso da linguagem, e é amplamente utilizado no paradigma 
funcional. 


Agora vamos olhar um pouco mais de perto para um operador mais 
específico da linguagem: o pipeline. 


4.2 O operador pipeline 


No dia a dia, é bastante interessante que o seu código seja claro e 
expresse suas intenções. Os operadores de pipeline e composição 
são bastante úteis para manter a concisão e legibilidade do código. 


No primeiro capítulo, já foi feito um exemplo usando o operador |> 
para tornar o código mais claro. Agora, este recurso será um pouco 
mais explorado, com o objetivo de compreender o que realmente 
acontece quando usamos este operador, que também é uma 
função, assim como os outros operadores citados anteriormente. 


Primeiro, vamos ver a definição formal da função que define o 
operador |>. 


let (|>) parametro funcao = funcao parametro 


Pela definição da função do operador, podemos concluir que tudo o 
que ele faz é passar o parâmetro que o antecede para a função que 
o sucede. Parece simples, mas é uma operação muito útil para a 
legibilidade de código. Para entender a importância disso, vamos 
primeiro fazer um exemplo de código com a sintaxe tradicional. 


Neste exemplo, criaremos uma lista de números de 0 até 10 e 
multiplicaremos por 2 todos os menores que 5. Isso deve ser feito 
utilizando a função multiplicaPor2, criada anteriormente, e uma 
função anônima para realizar a filtragem. 


let dobrarValoresDeUmaLista() = 
let lista = [0..10] 
let listaComValoresMenoresQues5 = 
List.filter (fun numero -> numero < 5) lista 


List.map multiplicaPor2 listaComValoresMenoresQue5 


A lógica do nosso código está de acordo com o que propomos, mas 
a utilização do operador |> pode tornar o código muito mais legível. 
Perceba a mudança: 


let dobrarValoresDeUmaListaComOperador() = 
[9..10] 
|> List.filter (fun numero -> numero < 5) 
|> List.map multiplicaPor2 


O código fica mais enxuto e idiomático, tornando a leitura muito 
mais intuitiva do que a do exemplo anterior. Além disso, não é 
necessário criar valores intermediários ( listaComValoresMenoresQue5 NO 
exemplo anterior), já que o retorno do filtro é passado para O map 
através do operador. 


É importante ressaltar que, apesar dos exemplos vistos trabalharem 
com listas de dados, é possível usar este operador independente do 


uso de listas. O exemplo a seguir ilustra a utilização deste operador 
em conjunto com as funções que criamos anteriormente: 


let variasOperacoes valori valor2= 
valor1 + valor2 
|> somaCom10 
|> somaCom2 
|> multiplicaPor2 


Nessa função, esperam-se dois valores como parâmetros. Estes 
dois valores são somados e é acrescentado o valor 10 ao resultado 
deles, depois o valor 2 e, por fim, multiplicado pelo valor 2. 


Por exemplo, caso sejam passados os valores 2 e 3, as operações 
ocorrerão nesta ordem: 


e 2+3=5 

e 5+10=15 
e 15+2=17 
e 17 x2=34 


Apesar de ser muito menos utilizado, também é possível realizar o 
pipeline inverso <| . Neste caso, a função é o valor que antecede o 
operador, e o parâmetro enviado para a função é o valor que o 

sucede. A definição formal deste operador pode ser descrita como: 


let (<|) funcao parametro = funcao (parametro) 


Como é possível notar, este operador faz com que o parâmetro seja 
avaliado antes de ser passado para a função. Ou seja, se o 
parâmetro também for uma função, o que será passado como 
parâmetro será o resultado desta função, e não ela própria. 


let exemploInverso valor1 valor2 = 
somaCom10 <| valor1 + valor2 


Na maior parte dos casos, este operador torna o código bastante 
similar ao modo tradicional, por isso não é tão usado. 


Um dos modos mais comuns de se utilizar este operador é em 
conjunto com o operador de negação not . Neste caso, ele torna a 
leitura mais próxima da linguagem natural (inglês). 


let numeroImparOperadorInverso valor = 
let numeroPar numero = numero % 2 = 0 
not <| numeroPar valor 


let numeroImpar valor = 
let numeroPar numero = numero % 2 = 0 
numeroPar valor |> not 


Perceba que, neste exemplo, a leitura com o operador inverso 
realmente melhora. Outro motivo de este operador não ser tão 
popular é o fato de que alguns desenvolvedores optam por utilizar 
parênteses para substituí-lo. 


let numeroImparParenteses valor = 
let numeroPar numero = numero % 2 = 0 
not (numeroPar valor) 


Apesar de o operador inverso não ser tão popular, é importante 
frisar que é muito comum usar o operador |>. Este será utilizado 
ao longo do livro, então é bastante importante ter a compreensão do 
que ocorre ao usá-lo: sempre se aproveita o valor antes do 
operador como último parâmetro da função após o operador. 


4.3 Compondo funções 


Nesta seção, falaremos sobre como compor novas funções em uma 
aplicação a partir de funções preexistentes. Apesar de já termos 
falado sobre isso, ainda não exploramos as possibilidades e as 
facilidades que as linguagens funcionais proporcionam para isto. 


A composição de função é um recurso usado para reduzir a 
quantidade de código que o desenvolvedor precisa escrever. 


Através de premissas lógicas, podemos inferir novas funções. 


No capítulo passado, foi mostrada uma função maçã -> laranja por 
meio de uma ilustração. Agora adicionaremos uma nova função na 
mesma aplicação imaginária. Assim, além da função já criada, 
também há a função laranja -> banana. 


Maça -> Laranga 


Laranga -> Banana 





Figura 4.2: Funções da aplicação imaginária das frutas 


Se temos uma função que transforma uma maçã em uma laranja, e 
outra para transformar uma laranja em uma banana, pode-se 
concluir que é possível criar uma terceira função para transformar 
uma maçã em uma banana. 


Para fazer isso, tudo o que precisamos fazer é conectar a saída da 
primeira função com a entrada da segunda, conforme a ilustração: 


Maça -> Laranja Laranja -> Banana 


óm m6-m ms 





Maçã -> Banana 


óu ms 


Figura 4.3: Nova função composta pelas funções preexistentes 


Vamos para um exemplo de código, para tornar as coisas um pouco 
mais claras. 


Primeiro vamos criar uma função que recebe por parâmetro um 
valor booleano. Esta deve retornar o texto "Sim" para true e "Não" 
para false, um código bastante simples. 


let converteBooleanoParaTexto valor = 
if valor 
then "Sim" 


else "Não 


Agora criaremos uma função que responde se um número é ímpar 
ou não, a partir desta função e da numeroImpar que criamos 
anteriormente. 


let verificaSeONumeroEImpar valor = 
let resultado = numeroImpar valor 
converteBooleanoParaTexto resultado 


De certa maneira, esta nova função é composta pelas duas 
anteriores. No entanto, é possível criar uma forma mais genérica 
que permita compor duas ou mais funções. Para fazer isto, é 


necessário criar uma forma mais abstrata de conexão entre as 
funções. Veja o código a seguir. 


let compor funcaol funcao2 parametro = 
funcao2 (funcaol (parametro) ) 


Se avaliarmos esta função no compilador, teremos o tipo ('a->'b)-> 
('b->'c)->('a->'c) . OU seja, esperam-se por parâmetro duas funções 
de tipos genéricos, em que a saída da primeira é utilizada como 
entrada da segunda. E o retorno, conforme já esperado, é uma 
função que recebe o mesmo tipo de parâmetro da primeira função e 
retorna o mesmo tipo da segunda função. 


Se fizermos a substituição no tipo considerando 'a = maçã, 'b = 
laranja € 'c = banana, teremos exatamente o tipo de parâmetro e 
retorno da função fictícia. Essa assinatura define duas caraterísticas 
importantes sobre composição de função: 


1. As funções que são compostas precisam obrigatoriamente 
possuir apenas um parâmetro (já que elas são conectadas ao 
retorno da anterior); 

2. É possível compor quantas funções forem necessárias, desde 
que o parâmetro da seguinte seja do mesmo tipo que o retorno 
da anterior. 


Agora que a função compor já está implementada, vamos refatorar 
verificaseoNumeroEPrimo para utilizá-la e observarmos a primeira 
característica, conforme o código: 


let verificaSeONumeroEImparUsandoCompor valor = 
compor numeroImpar converteBooleanoParaTexto valor 


Como já foi feito anteriormente, aqui também é possível omitir o 
parâmetro, afinal, o retorno da função compor é uma função e seu 
tipo já indica o parâmetro necessário e seu retorno. 


let verificaSeONumeroEImparUsandoCompor = 
compor numeroImpar converteBooleanoParaTexto 


É possível também concatenar várias chamadas da função compor 
para aumentar a quantidade de funções que são usadas na 
composição, conforme o exemplo a seguir. 


let somaComTresEVerificaSeONumeroEImparUsandoCompor = 
compor somaCom3 
(compor numeroImpar converteBooleanoParaTexto) 


A composição de funções facilita a expansão de uma aplicação 
através de reúso de funções já existentes. Devido à facilidade de 
implementação, esta é uma prática bastante comum, tão comum 
quanto o pipeline. E assim como no caso do pipeline, existe um 
operador definido na linguagem para realizar esta operação. 


O operador de composição é definido por >> e a função formal que 
o define é idêntica à função que nomeamos de compor . Então, pode- 
se concluir que este operador possui as características descritas 
anteriormente (funções de apenas um parâmetro e pode haver 
composições virtualmente infinitas). 


Com este operador, a sintaxe se torna muito mais fluida e limpa. 
Vamos refatorar as funções criadas anteriormente para que elas 
passem a utilizá-lo. 


let verificaSeONumeroEImparUsandoOperador = 
numeroImpar >> converteBooleanoParaTexto 


let somaComTresEVerificaSeONumeroEImparUsandoOperador = 
somaCom3 >> numeroImpar >> converteBooleanoParaTexto 


Vamos voltar para a função compor para tentar explorá-la um pouco 
mais através de outro exemplo. O objetivo agora é criar uma 
composição de uma soma e uma multiplicação, conforme o código: 


let somaDepoisMultiplica = 
compor (+) (*) 


Esta função acusará um erro, isso porque ela quebra uma das 
regras citadas anteriormente: só é possível compor funções que 
recebem um parâmetro e a função de soma (+) espera por dois. 


Inicialmente, vamos fixar os valores para ver o que acontece. 
Somaremos com o número 1 e depois multiplicaremos pelo número 
2, conforme o código: 


let somaDepoisMultiplica = 
compor ((+)1) ((*)2) 


Note que é preciso circundar os valores 1 e 2 com parênteses. Isso 
é necessário para que as funções sejam avaliadas e somente o 
retorno parcial delas seja informado como parâmetro para a função 


compor . 


A sintaxe se torna um tanto suja e prejudicada por conta disso, mas, 
felizmente, uma segunda característica do operador de composição 
é a avaliação prévia das funções que são informadas como 
parâmetros, sem a necessidade de parênteses. 


let somaDepoisMultiplicaUsandoO0perador = 
(+)1 >> (*)2 


Agora uma boa dica que pode ser utilizada durante a composição de 
funções é que o desenvolvedor pode (e deve) usar e abusar da 
aplicação parcial e do currying. Através destas técnicas vistas no 
capítulo anterior, é possível informar mais de um parâmetro para as 
funções compostas. Vamos fazer algumas experiências. 


A primeira coisa a ser feita é avaliar o tipo da função 
somaDepoisMultiplicaUsandoO0perador . Esta função é do tipo int -> int, 
afinal, espera um número inteiro por parâmetro e retorna também 
um número inteiro, que é o resultado das operações matemáticas. 


A primeira experiência será remover o número 2 da função de 
multiplicação. O que você acha que deve ocorrer? 


Por falta de hábito neste paradigma, é bastante comum imaginar 
que a composição não funcionaria, afinal, uma multiplicação precisa 
de dois parâmetros. Mas lembre-se de que o currying funciona de 
modo automático no FÊ. 


Ao remover o número dois, apenas alteramos o tipo da função de 
int -> int para int -> int -> int . Com isso, o retorno desta função 
agora passará a ser uma função intermediária da multiplicação, que 
espera o parâmetro correspondente ao multiplicador. 


Assim, poderemos chamar esta função passando dois parâmetros: 


let resultado = somaDepoisMultiplicaUsando0O0perador 1 2 


O que acontece neste caso é que a função de composição continua 
esperando por apenas um parâmetro, mas seu retorno também é 
uma função que espera um parâmetro. Por isso, podemos informar 
dois parâmetros. 


A outra experiência será a flexibilização do valor que será somado, 
então receberemos um parâmetro extra na função de composição, 
conforme o código: 


let somaDepoisMultiplicaUsandoO0perador valorParaSomar = 
(+)valorParaSomar >> (*) 


let resultado = 
somaDepoisMultiplicaUsandoO0perador 1 1 2 


O resultado obtido será o valor 4, afinal, será somado 1+1,e 
depois multiplicado o resultado por 2. Esta função é um exemplo no 
qual os parâmetros possuem uma certa divisão. Os dois primeiros 
realizam a soma, e o último é o multiplicador. 


Para este caso, também pode-se optar pelo pipeline inverso, para 
tornar o código mais expressivo e evitar confusão de parâmetros: 


let resultado = 
somaDepoisMultiplicaUsando0O0perador 1 1 <| 2 


Em termos de funcionamento, não há diferenças nestas duas 
versões e você pode optar pela que mais lhe agrada. 


Assim como o operador de pipeline inverso, o operador de 
composição também possui o seu "modo inverso". Neste caso, a 


função à direita do operador é conectada na saída da função à 
esquerda do operador. Veja o exemplo: 


let dobraDepoisSoma = 
(+) << (*)2 


A função descrita anteriormente faz exatamente o que seu nome 
sugere: dobra um valor informado e depois soma-o com um 
segundo valor informado. 


Como você deve ter notado, a sintaxe não é muito intuitiva, o que 
tornou este operador pouco popular. Geralmente usamos nos 
mesmos casos em que utilizamos o pipeline reverso, apenas para 
tornar o código mais parecido com a linguagem natural. 


Neste ponto, há uma dúvida bastante comum que surge entre os 
desenvolvedores, e talvez você também esteja se perguntando: qual 
a diferença entre o operador de pipeline e de composição? 


Entendendo a diferença entre pipeline e composição 


Apesar de ser uma dúvida bem comum, após um pouco de prática 
torna-se bastante clara a distinção entre estes dois operadores. 
Primeiro vamos comparar as funções que os define, depois veremos 
como isso é aplicado na prática. 


let (|>) parametro funcao = funcao parametro 


let (>>) funcao1 funcao2 parametro = 
funcao2 ( funcaol(parametro) ) 


A primeira diferença é a quantidade de parâmetros das funções que 
os define. Durante o uso dos operadores, isso pode passar 
despercebido, porque os parâmetros são inferidos devido aos tipos 
das funções. 


Mas isso causa um impacto importante. A quantidade de parâmetros 
no caso da composição torna obrigatório que os membros 


compostos sejam valores de função, enquanto é perfeitamente 
comum utilizar pipelines em valores simples. 


Vamos usar a função somacomio para exemplo, primeiro com pipeline 
e depois com composição: 


let somaComio = (+) 10 


let somarNumeroCom10 = 
3 |> somaCom10 


let somarNumeroCom10Composicao = 
3 >> somaComid 


Neste caso, o pipeline executará com sucesso, mas teremos 
problemas em compilar a função somarNumeroComiôComposicao , 
simplesmente porque o tipo do valor 3 não se encaixa na função do 
operador. Veja: 


©)let (>>) funcaol funcao? parametro = 
funcao? (funcaol (parametro)) 


©)3 >> somaComio 


Olet (>>) 3 somaComiQ parametro = 


somaCom10 (3 (parametro)) 


Figura 4.4: Composição com valor simples 
Na figura anterior, são ilustradas: 


1. Definição do operador; 
2. Utilização do operador com valor simples; 


3. Substituição dos parâmetros da função do operador com os 
valores informados. 


Com esta figura, fica claro o problema que acontece quando 
tentamos utilizar a composição desta forma. Ocorre um problema de 
compilação devido à tipagem, afinal, o valor 3 não é uma função que 
recebe um parâmetro. 


Agora será feito o exercício contrário: usaremos pipeline em um dos 
casos em que se deveria utilizar o operador de composição. Para 
fazer isso, serão usadas duas funções criadas anteriormente: 


numeroImpar © converteBooleanoParaTexto . 


let numeroImpar valor = 
let numeroPar numero = numero % 2 = 0 
not <| numeroPar valor 


let converteBooleanoParaTexto valor = 
if valor 
then "Sim" 


else "Não" 


O objetivo é executar uma função após a outra através dos 
operadores, conforme o código: 


let verificaSeONumeroEImparUsandoCompor = 
numeroImpar >> converteBooleanoParaTexto 


let verificaSeONumeroEImparUsandoComporComPipeline = 
numeroImpar |> converteBooleanoParaTexto 


Neste caso, é a função que utiliza o pipeline que acusará um erro. O 
problema que ocorre aqui é o mesmo: os tipos não encaixam na 
função que define o operador. 


Vamos à figura com a substituição passo a passo: 


0)1et (|>) parametro funcao = 
funcao parametro 


OQ numeroImpar |> converteBooleanoParaTexto 


©)let (|>) numeroImpar converteBooleanoParaTexto = 


'converteBooleanoParaTexto numeroImpar 


Figura 4.5: Pipeline com valor de função 


O problema neste caso é que a função converteBooleanoParaTexto 
espera um booleano como parâmetro e o tipo que ela está 
recebendo é int -> bool , pois a função numeroImpar ainda não foi 
executada. Uma das formas de "converter" um caso para o outro é 
manejar os parâmetros (informando-os ou omitindo-os) e a 
avaliação das funções envolvidas. 


Neste exemplo, a função poderia receber um inteiro por parâmetro, 
validar se o número é ímpar e utilizar o pipeline para informar o valor 
de retorno da função como parâmetro em vez da própria função. 
Dessa forma, tudo ocorrerá bem, conforme o exemplo: 


let verificaSeONumeroEImparUsandoComporComPipeline numero = 
numeroImpar numero 
|> converteBooleanoParaTexto 


Mas note que é preciso escrever mais código do que o necessário, 
porque este é um exemplo em que a composição seria mais 
adequada. 


let verificaSeONumeroEImparUsandoCompor = 
numeroImpar >> converteBooleanoParaTexto 


Com isso, você já deve ser capaz de diferenciar estes dois 
operadores. Com um pouco mais de prática, perceberá o melhor 


momento de utilizar cada um deles para melhorar a escrita de seu 
código. 


4.4 Resumo 


Neste capítulo, tivemos uma visão um pouco mais teórica sobre as 
funções, focando principalmente na linguagem Ff e em seus 
operadores. 


No próximo capítulo, será vista uma nova forma para controle de 
fluxo e como projetar com tipos. 


Você pode encontrar os códigos escritos neste capítulo em: 


www .bit.ly/funcional-Cap4. 





CAPÍTULO 5 
Tipos, não classes 


Este capítulo será focado no sistema de tipos do F#, ilustrando 
inclusive como criar seus próprios tipos. Caso o título do capítulo 
não tenha sido sugestivo o suficiente, lembre-se de que é 
necessária uma mudança de pensamento para aprender um novo 
paradigma: tipos não são classes, não tente compará-los. 


5.1 Se não são classes, o que são? 


Na verdade, definir o que são tipos é quase tão difícil quanto definir 
o que são funções ou o que é programação funcional. Um sistema 
de tipos é uma forma de categorizar dados em seu programa. Pode- 
se dizer que esta categorização indica ao compilador certos testes 
que precisam ser feitos com um determinado dado. 


Esta categorização serve para modelar o mundo real dentro de seu 
programa. Além disso, os tipos também são úteis para definir o 
domínio de uma função. Pense em tipos como um nome de um 
conjunto de dados que pertencem a um mesmo conjunto. Veja a 
figura a seguir, ilustrando os conjuntos bool e int. 





Figura 5.1: Representação de tipos como conjuntos de dados 


Um programa escrito utilizando Orientação a Objetos de forma 
correta possui um foco bastante grande no comportamento das 
coisas e em como elas interagem umas com as outras. Estas 
"coisas" são representadas através de classes. 


No paradigma funcional, o foco é muito maior para a estrutura do 
dado do que em seu comportamento, afinal, as funções que lidam 
com o comportamento das coisas. Ff possui grandes 
funcionalidades para auxiliar o desenvolvedor a projetar seus tipos 
corretamente. 


Eu diria que o sistema de tipos de uma linguagem funcional 
ocuparia o segundo lugar em termos de importância, perdendo 
apenas para as funções propriamente ditas. 


Até este ponto do livro, você já teve contato com algumas categorias 
dos tipos: 


e Tipos primitivos: int, bool, double etc.; 

e Tipos de funções: int -> int, bool -> string, int -> bool -> 
string etc.; 

e Tipo vazio: unit; 

e Tipos genéricos: 'a em Fá, e <T> em CÊ. 


Agora exploraremos um pouco mais o sistema de tipos e algumas 
novas categorias que não são tão comuns em linguagens 
imperativas: 


e Tuplas; 

e Type Records; 

e Discriminated Unions; 
e Option. 


Além disso, veremos como funciona a compatibilidade dos tipos do 
F# com o restante da plataforma .NET. Em alguns casos, veremos 
que o Ff possui a sua própria implementação de tipos que já 
existem na plataforma .NET. Isso ocorre porque a versão do Ff é 
criada sob uma óptica mais funcional. 


Em geral, os tipos do F# não aceitam valores nulos e são 
naturalmente imutáveis. Por conta disso, é fortemente recomendado 
que você os utilize em vez dos tipos do framework. 


Antes de começarmos a falar mais especificamente dos tipos, é 
importante falar sobre o que já foi debatido no início do livro. No 
paradigma funcional, é importante enfatizar expressões. Já foi visto 
um pouco a respeito disso, mas agora você está apto para ir um 
pouco mais a fundo nesse assunto. Vamos falar sobre o uso das 
expressões para controle de fluxo e do comando pattern matching. 
Isto será necessário visto que este comando é muito utilizado para 
interagir com diversos tipos diferentes. 


5.2 Controle de fluxo com expressões 


Em grande parte das linguagens, o controle de fluxo pode ser 
dividido em dois grandes grupos: desvios condicionais e laços de 
repetição. Estes grupos geralmente são compostos por variações 
dos mesmos comandos, com pouca diferenciação de uma 
linguagem para outra. 


É comum que os comandos de desvios condicionais sejam 
compostos por if-then-else € switch-case, enquanto os comandos 
de laços de repetição sejam por for, foreach € do-while. O objetivo 
não é explicar estes comandos, provavelmente você já está 
familiarizado com eles. No entanto, eles são muito mais imperativos 
do que funcionais. 


Devido a isso, aplicações elaboradas de uma forma mais funcional 
tendem a evitar estes comandos, e é isso que será tratado aqui. 
Uma combinação de recursividade e aplicação do pattern matching 
pode gerar os mesmos resultados, de forma bem mais expressiva. 
Vamos começar com o grupo de desvios condicionais. 


A seguir, está o exemplo clássico da verificação se um número é par 
ou ímpar, retornando uma string com o texto respectivo. 


let verificaSeONumeroPar numero = 
if numero % 2 =0 
then "Par" 
else "ímpar" 


É importante perceber que não há nada de errado neste código, ele 
apenas está imperativo demais sob a perspectiva do paradigma 
funcional. Note também que o comando if-then-else do F já 
possui um passo a mais do que o mesmo comando do C%, pois o 
próprio comando if, quando escrito em F#, retorna valor. 


Para melhorar um pouco esta validação, deve-se utilizar o pattern 
matching, que pode ser traduzido para algo como: correspondência 


de padrões. Mas é muito mais comum deparar-se com este termo 
em inglês. 


Pattern matching em vez de um desvio condicional 


O pattern matching, como o próprio nome já sugere, executa um 
teste para checagem de um padrão. Isso pode ser usado de muitas 
formas, como por exemplo, para validação e checagem de dados, 
desvios condicionais e até para laços de repetição. 


Em todos estes casos, o pattern matching realiza estas tarefas 
focando em expressões em vez de atribuições. A sintaxe deste 
comando é bastante diferenciada. Veja: 


match valor with 

| padraoi -> expressao1 
| padrao? -> expressao2 
| padrao3 -> expressao3 


Como você deve ter notado, cada padrão identificado no pattern 
matching é uma expressão lambda. E todas as expressões usadas 
nele esperam apenas um parâmetro. 


Uma definição alternativa do pattern matching é: uma escolha de 
uma determinada expressão lambda de acordo com um padrão 
dentro de um conjunto específico de expressões lambda. Veja o 
exemplo do número par, mas agora utilizando o pattern matching: 


let verificaSeONumeroParComPatternMatching numero = 
match numero % 2 = 0 with 
| true -> "Par" 
| false -> "Ímpar" 


Esta é uma sintaxe possível e compilável do mesmo exemplo criado 
anteriormente usando o comando if. Neste pattern matching, está 
sendo comparado o resultado da expressão relacional. 


Agora o exemplo usado se tornará um pouco mais complexo. 
Suponha que é necessário retornar o texto "Zero" quando o valor 


informado for zero. Veja que a sintaxe if-then-else começa a não 
ser mais tão clara: 


let verificaSeONumeroParOuZero numero = 
if numero % 2 =0 
then 
if numero = ð 
then "Zero" 
else "Par" 
else "ímpar" 


O código do exemplo anterior começa a apresentar um problema 
bastante comum conhecido como pyramid of doom. Ou seja, O 
código começa a ficar indentado demais, o que complica a leitura e 
o entendimento da funcionalidade. Neste caso, também é possível 
aplicar o pattern maching. 


No primeiro exemplo de pattern matching, foi feita a comparação 
com o resultado da expressão relacional que realiza um teste de 
verificação de número par. A forma mais correta é que a própria 

expressão faça parte de um dos padrões possíveis do comando 

pattern matching. 


Nesta nova forma, a comparação será feita direto com o valor 
numero , € Não com o resultado da expressão. Outra diferença é que, 
em um dos padrões, deverá haver uma expressão. Para fazer isso, 
a sintaxe é um pouco alterada: 


match valor with 

| x when x < O -> expressao1 
| 4 -> expressao2 

| 2 -> expressao3 


Neste exemplo, o primeiro caso só vai acontecer caso a condição 
escrita após a palavra reservada when seja atendida. Veja a nova 
versão considerando o valor zero através de pattern matching: 


let verificaSeONumeroPar0uZeroComPatternMatching numero = 
match numero with 
| O -> "Zero" 


| numero when numero % 2 = 0 -> "Par" 
| _ -> "Ímpar" 


Perceba que a indentação do código não fica prejudicada e fica 
bastante clara a intenção em todos os casos. Também é importante 
perceber que o padrão de comparação para números ímpares é um 
underscore ( _ ), que é o padrão coringa que sempre retornará como 
sucesso, independente do valor passado. 


No caso do pattern matching, a ordem das expressões altera o 
resultado do algoritmo. Caso o padrão coringa seja definido como 
primeiro padrão do comando pattern matching, nenhum dos outros 
padrões será testado, já que o coringa sempre é atendido. O 
exemplo a seguir ilustra este problema: 


let verificaSeONumeroPar0uZeroComPatternMatchingErrado numero = 
match numero with 
| -> "Ímpar" 
| O -> "Zero" 
| numero when numero % 2 = 0 -> "Par 


Neste caso, independente do valor informado em numero, O 
resultado do algoritmo será "Impar", já que o padrão coringa sempre 
será atendido. 


Pattern matching em vez de um laço de repetição 


Agora será visto como realizar a substituição de um laço de 
repetição por algo mais funcional. No exemplo, será feita uma 
função para calcular o fatorial de um número. Para isso ocorrer, 
precisaremos de um acumulador, ou seja, precisaremos alterar 
estado de um valor, então vamos utilizar C# como exemplo. 


public static int Fatorial(int numeroParaCalcularFatorial) 
{ 

int acumulador = numeroParaCalcularFatorial; 

for (int numero = numeroParaCalcularFatorial - 1; numero >= 1; numero- 
-) 


acumulador = acumulador * numero; 


return acumulador; 


} 


Neste ponto do livro, você já deve estar mais confiante na 
linguagem F#. Saiba que é possível fazer isso também em F# 
usando a palavra reservada mutable , já que ela permite a alteração 
do estado de um valor. 


Tenha em mente que este é um exemplo do que não se deve fazer. 
Principalmente se você ainda está desenvolvendo o pensamento 
funcional, pode ser bastante tentador utilizar mutable em todos os 
casos, mas é fortemente não recomendado. Vamos ao exemplo: 


let fatorial numeroParaCalcularFatorial = 
let mutable acumulador = numeroParaCalcularFatorial 
for numero = numeroParaCalcularFatorial-1 downto 1 do 
acumulador <- acumulador * numero 
acumulador 


Para substituir um laço de repetição, também é utilizado o pattern 
matching, mas desta vez, em conjunto com funções recursivas. Veja 
o exemplo: 


let rec fatorialComPatternMatching numero = 
match numero with 
| Ə | 1 ->1 
| 2 -> 2 
| _ -> numero * fatorialComPatternMatching (numero-1) 


Esta forma é muito mais usada no paradigma funcional devido à sua 
clareza. Os dois primeiros padrões deste pattern matching indicam 
as condições de parada da função, enquanto o último continua a 
execução do cálculo. 


Desta forma, a própria linguagem se encarrega de armazenar o 
acumulador através do resultado das expressões, e assim é tirada a 
responsabilidade do desenvolvedor de controlar e depender de um 
estado de uma variável. 


Perceba que, para tornar uma função recursiva em Ff, é necessário 
utilizar a palavra reservada rec. Esta palavra reservada também 
pode ser usada em funções aninhadas: 


let fatorialComFuncaoAninhada numero = 
let rec fatorial numero = 
match numero with 
|lo/1->1 
| 2 -> 2 
| _ -> numero * fatorialComPatternMatching (numero-1) 


fatorial numero 


Infelizmente, na versão atual do C# (6.0), ainda não temos 
disponível um comando equivalente ao pattern matching. Porém, 
podemos utilizar funções recursivas para evitar controle de estado e 
deixar o código um pouco mais funcional. 


public static int FatorialRecursivo ( int numero) 


return numero == O || numero == 1 ? 1 
: numero == 2 ? 2 
: numero * FatorialRecursivo(numero - 1); 


Utilizando condicionais ternários, o código acaba ficando similar em 
casos mais simples. Porém, esta estrutura pode se tornar bastante 
complexa para casos mais complexos, como validação de coleções, 
por exemplo. 


Um ponto importante para se saber a respeito do pattern matching é 
que ele possui checagem exaustiva, ou seja, é necessário cobrir 
todos os casos. Isso não significa que você deve inserir um padrão 
coringa sempre. Na verdade, é bastante indicado evitar o padrão 
coringa sempre que possível. 


Com a introdução ao pattern matching feita, vamos voltar ao tópico 
principal do capítulo: tipos. A primeira coisa a se saber sobre os 


tipos é como é possível definir um novo tipo. Para isto, é utilizada a 
seguinte sintaxe: 


type nomeDoTipo =... 


A palavra reservada type é usada para indicar a definição de um 
tipo, mas a forma de definição varia muito de acordo com sua 
categoria, então cada categoria será explicada individualmente. 


5.3 Apelidos ou abreviações para tipos 


Uma das formas de definir um tipo é criar um apelido ou uma 
abreviação para um tipo já existente na linguagem. Os apelidos são 
úteis para que seu código se torne mais significativo e se pareça 
mais com o mundo real. 


Também é possível abreviar tipos de funções para reutilizá-las 
escrevendo menos código. Com os apelidos, o acoplamento entre o 
uso do tipo e a definição abstrata dele também diminui. Vamos para 
os exemplos: 


type Numero = int 
type Codigo = string 
type OperacaoMatematica = int -> int -> int 


Apelidos para tipos são uma prática muito útil, mas não se engane, 
eles não criam novos tipos. Eles são apenas uma forma de 
visualização em tempo de desenvolvimento. Em qualquer local em 
que se tenha um código esperando pelo tipo numero, você poderá 
passar um tipo int sem nenhum problema com o compilador. 


5.4 Tuplas 


As tuplas foram introduzidas recentemente no Cf através da classe 
Tuple , mas devido a algumas características da própria linguagem, 
ainda é bastante oneroso trabalhar com elas. O F# possui tuplas 
implementadas de forma bastante presente na linguagem, tornando 
sua utilização muito mais natural. 


Mas o que são tuplas? Como foi ilustrado na figura anterior, os tipos 
podem ser encarados como conjuntos de dados que possuem uma 
característica em comum. Uma tupla seria o resultado da 
multiplicação destes dois conjuntos, ou seja, um produto cartesiano 
destes tipos. 


A seguir, a figura ilustra uma tupla do tipo int * bool: 


| int * bool 


-2, true 
-2, false 
-1, true 
-1, false 
O 
true 
false 
true 
false 





Figura 5.2: Representação da tupla int * bool 


A representação desta tupla em Ff é feita da seguinte maneira: 


let inteiroEBool = 2, true 
let outroInteiroEBool = -1, false 


Conforme o código ilustra, tudo o que precisamos fazer para 
construir uma tupla é utilizar uma vírgula, nada além disso. Caso 
você queira, também é possível circundar os valores com 
parênteses, mas não há obrigatoriedade nisso. 


É possível misturar quantos tipos você desejar e na ordem que você 
desejar. Veja mais exemplos: 


let tuplai = 1, 2, 3 
let tupla2 = 1, true, "Gabriel" 
let tupla3 = 3, false 


let tupla4 = 1, 2, 3, false, "Teste" 
let tupla5S = (+), false 
let tupla6 = false, 2 


Todas essas tuplas do exemplo são válidas. Veja que podemos 
multiplicar vários tipos, inclusive um tipo de função, no caso da 
tuplas . No entanto, é recomendado o uso com poucos valores para 
evitar problemas de legibilidade em seu código. 


Os tipos das tuplas não possuem nomes propriamente dito, seus 
nomes dependem dos tipos envolvidos na multiplicação. Se 
analisarmos as cinco tuplas do exemplo anterior, teremos 
respectivamente os tipos: 


int * int * int 

int * bool * string 

int * bool 

int * int * int * bool * string 
(int -> int -> int) * bool 


bool * int 


o md a O 


Com isso, pode-se concluir que a ordem dos tipos é importante. As 
tuplas 3 (int * bool ) e 6 ( bool * int), apesar de ambas possuírem 


um valor do tipo bool e um do tipo int, não são tuplas do mesmo 
tipo. 


A vírgula é o ponto-chave das tuplas e podem causar confusão em 
quem está acostumado com a sintaxe tradicional do CH. Veja as 
funções a seguir: 


let soma numero1 numero? = 
numero1 + numero2 


let somaTupla (numero1, numero2) = 
numeroi + numero2 


A função soma recebe dois parâmetros do tipo int e retorna a soma 
deles, enquanto a função somatupla recebe apenas um parâmetro 
do tipo int * int . Ao usarmos tuplas como parâmetros, a sintaxe 
pode acabar ficando confusa, mas lembre-se: quando há vírgula 
entre os parâmetros, trata-se de uma tupla. 


Apesar de ser muito menos utilizada, veja a sintaxe para criar as 
mesmas tuplas em CÊ: 


public void CriandoTuplas() 


{ 
Tuple<int, int, int> tuplal = 
new Tuple<int, int, int>(1, 2, 3); 


Tuple<int, bool, string> tupla2 = 
new Tuple<int, bool, string>(1, true, "Gabriel"); 


Tuple<int, bool> tupla3 = 
new Tuple<int, bool>(3, false); 


Tuple<int, int, int, bool, string> tupla4 = 
new Tuple<int, int, int, bool, string>(1, 2, 3, false, "Teste"); 


Tuple<Func<int, int, int>, bool> tupla5 = 
new Tuple<Func<int, int, int>, bool>(Soma, false); 


Tuple<bool, int> tupla6 = 


new Tuple<bool, int>(false, 2); 


| 


Como é possível notar, em Cf é muito mais trabalhoso para criá-las, 
mas este não é o único problema. Outro ponto fundamental das 
tuplas é a desconstrução delas. 


Para trabalharmos com os dados contidos em uma tupla, 
precisamos extrair a informação dela, e as duas linguagens 
possuem formas bastante diferentes de extrair essas informações. 
Em CX, existem diversas classes diferentes para representar uma 
tupla, e todas elas se chamam rTuple mudando apenas a quantidade 
de itens presentes nela. Ela pode, no máximo, ter oito itens, o que é 
muito mais do que uma tupla deveria conter, sendo realista. 


Essas classes também possuem as propriedades Item1, Itemz até 
ItemN, em que n é a quantidade de itens desta tupla. Através 
destas propriedades, é possível extrair os dados presentes em uma 
tupla. Veja o exemplo: 


public void CriandoTuplas() 


{ 
Tuple<int, int, int> tuplal = 
new Tuple<int, int, int>(1, 2, 3); 


int itemi = tuplal.Iteml; 
int item2 = tuplal.ITtem2; 
tuplai.Item3; 


int item3 


} 


Em F#, a desconstrução de uma tupla é tão natural quanto sua 
construção. Basta separar a declaração dos valores que vão 
receber os itens. 


let tuplai = 1, 2, 3 


let item1, item2, item3 = tupla1 


É importante notar que é necessário informar a mesma quantidade 
de valores que a tupla possui; caso contrário, será gerado um erro 
de compilação. Se não for necessário guardar todos os valores, é 
possível utilizar o mesmo padrão coringa do pattern matching. 


let tupla2 = 1, true, "Gabriel" 
let item4, _, item5 = tupla2 


Desta forma, o valor do tipo bool desta tupla é ignorado, e o 
restante dos valores é atribuído aos valores declarados. 


Também existe um caso especial para tuplas de dois valores (e 
somente nelas). Neste caso, é possível acessar o primeiro e o 
segundo elemento, respectivamente, através dos comandos fst e 
snd (abreviações de first e second). 


let tupla3 = 3, false 


let item6 = fst tupla3 
let item? = snd tupla3 


Com esta facilidade para desconstrução das tuplas, fica bastante 
fácil trabalhar com elas. Veja o exemplo que utiliza a tupla3 para 
criar uma nova. 


let tupla3 = 3, false 


let somarNumeroEInverterBool (numero, bool) = 
numero + 5, not bool 


let tupla3Modificada = somarNumeroEInverterBool tupla3 


Pode-se criar funções inclusive para inverter os tipos dos pares, 
tornando a tupla6 €a tupla3 do mesmo tipo. 


let inverterTupla (x,y) = y,X 


let tupla6 = false, 2 
let tupla7 = inverterTupla tupla6 


De forma geral, as tuplas são amplamente usadas e recomendadas 
como estruturas pequenas, leves e temporárias, geralmente em 
escopos fechados, como por exemplo, dentro de uma função ou de 
um algoritmo. Em casos que extrapolam estes escopos, como um 
retorno de uma função ou de uma consulta no banco de dados, é 
interessante criar estruturas mais complexas. 


5.5 Records 


Apesar de as tuplas serem úteis em muitos casos, elas são 
estruturas que não dizem muito sobre os dados. Na verdade, a 
única informação que temos é o tipo, e esta informação isolada não 
nos diz muito sobre o domínio. 


Além disso, tuplas não são indicadas para trabalhar com estruturas 
maiores, e pode tornar-se confuso saber qual campo se refere a 
qual valor. A solução para estas situações seria que cada elemento 
de uma tupla tivesse um identificador. E é exatamente isso o que os 
records são: tuplas com identificadores. 


Diferente das tuplas que são inerentes à linguagem, os records 
precisam ser definidos. Para fazer isso, é necessário utilizar a 
seguinte sintaxe: type “nome do record" = ("identificador":"tipo do 


identificador"). 


type inteiroEBool = (valorInteiro:int ; valorBooleano:bool+ 


Com isso, um novo tipo de dado é criado, um tipo onde há um 
campo com o identificador valorInteiro do tipo int e um 
valorBooleano dO tipo bool. 


Para utilizar um record, a sintaxe é um pouco mais verbosa do que 
para o uso de tuplas, pois é necessário identificar cada campo. 


let inteiroEBool = { valorInteiro = 2 ; valorBooleano = true} 


Da mesma forma que existe a desconstrução de um tupla, também 
há a desconstrução de um record. A sintaxe é bastante similar. 


let (valorInteiro = inteiro ; valorBooleano = bool} = inteiroEBool 


Através da desconstrução exibida anteriormente, é possível obter os 
valores individuais que estavam no record inteiroEBool a partir dos 
valores inteiro € bool , identificados conforme a estrutura 
predefinida do record. 


Uma característica que difere o record da tupla é a possível omissão 
de campos durante a desconstrução. Apesar de funcionar 
normalmente, não é preciso utilizar o caractere coringa, caso você 
deseje obter menos campos do que o definido no record. Nessas 
situações, basta omitir os campos que não serão usados: 


let (valorBooleano = booleano} = inteiroEBool 


Neste caso, apenas O valorBooleano é obtido do record inteiroEBool, 
através do valor booleano . 


Após a desconstrução, é possível usar os valores simples 
isoladamente sem nenhum problema. Por exemplo, podemos criar 
uma tupla utilizando os valores simples obtidos do record: 


let (valorInteiro = inteiro ; valorBooleano = bool} = inteiroEBool 


let recordTransformadoEmTupla = 
inteiro,bool 


Assim como no caso das tuplas, podemos utilizar o conceito de 
desconstrução para criar novos records baseados nos antigos. 
Existem duas formas de se fazer isso. A primeira delas ocorre de 
maneira muito similar ao caso das tuplas: 


let (valorInteiro = novoInteiro ; valorBooleano = novoBool) = 
inteiroEBool 


let segundoInteiroEBool = 


{ valorInteiro = novoInteiro + 10 ; 
valorBooleano = not novoBool + 


No código anterior, primeiro é realizada a desconstrução do record, 
para depois utilizar seus valores individuais na construção de um 
novo record. 


Uma outra forma de realizar esta operação é pela palavra reservada 
with . Esta palavra reservada deve ser usada quando o objetivo é 
manter a maior parte das propriedades do record com o mesmo 
valor e alterar apenas algumas propriedades, conforme o código: 


let terceiroInteiroEBool = { inteiroEBool with valorBooleano = false ) 


Neste caso, o valor inteiro será copiado para o novo registro 
alterando somente o valor booleano para false . É possível alterar 
mais de uma propriedade pelo comando with normalmente, 
separando cada uma delas com ponto e vírgula. 


5.6 Discriminated unions 


Os discriminated unions talvez sejam o tipo mais importante 
presente neste capítulo. Eles são muito úteis para descrever os 
objetos de domínio de uma aplicação, e até mesmo para definir o 
domínio de uma função. 


Os tipos explicados anteriormente são constituídos pela 
multiplicação de tipos existentes. Diferente deles, os discriminated 
unions são compostos pela soma de outros tipos. 


Vamos alterar o record inteiroEBoo1 criado anteriormente para que 
ele se torne um discriminated union. Ou seja, criaremos um tipo que 
possui um inteiro ou um bool. 


type Inteiro0OuBool = 
| Inteiro of int 
| Bool of bool 


Um valor do tipo criado no exemplo anterior pode receber qualquer 
valor aceitável dos tipos int e bool . A figura a seguir ilustra esta 
composição de tipos: 


int + bool 





Figura 5.3: Dados possíveis no tipo inteiroOuBool 


Cada caso possível de um discriminated union possui um 
identificador. No exemplo codificado, foi nomeado o identificador 
Inteiro para valores do tipo int, e Bool para valores do tipo bool. 
Estes identificadores podem ser escolhidos como qualquer nome. A 
única restrição é que eles precisam iniciar em maiúsculo; caso 
contrário, você receberá um erro de compilação. 


Você também pode utilizar records, tuplas e até outros discriminated 
unions na criação de um tipo, conforme o exemplo: 


type Inteiro0OuBool = 
| Inteiro of int 


| Bool of bool 
type Pessoa = { Nome:string ; Idade:int + 


type DiscriminatedComplexo = 
| IntOuBool of Inteiro0OuBool 
| Pessoa of Pessoa 
| Tupla of int * string 


Nesses casos, a única restrição é que é necessário utilizar tipos já 
existentes, ou seja, não é possível declarar um tipo complexo 
aninhado a um discriminated. Seguem alguns exemplos dos casos 
em que esse problema ocorrerá: 


type DiscriminatedAninhadoComProblema = 
| OutroDiscriminatedAninhado of (| Inteiro of int | Bool of bool) 


type DiscriminatedComRecordComProblema = 
| Pessoa of ({ Nome:string ; Idade:int 3) 


Outra utilização do discriminated union é quando um dos 
identificadores não possui nenhum valor além do próprio 
identificador, tornando sua utilização parecida com os enumerados 
do CH (mas é importante frisar que são coisas diferentes). 


type Resultado = 
| Sucesso 
| Erros of string list 


No exemplo anterior, o tipo Resultado pode indicar que a operação 
foi bem-sucedida ou pode conter uma lista de strings com os erros 
que aconteceram. Neste caso, apenas o identificador de sucesso já 
é suficiente para a aplicação. Veja outros exemplos: 


type RespostaDoUsuario = 
| Sim 
| Nao 


type Cor = 


| Vermelho 
| Verde 
| Azul 


Assim como os tipos definidos anteriormente, também é possível 
construir e desconstruir os discriminated unions. 


Para construir, é necessário utilizar um construtor com o nome do 
identificador, passando por parâmetro um valor do identificador, 
quando houver. O código a seguir ilustra a construção do 
discriminated union Resultado . 


type Resultado = 
| Sucesso 
| Erros of string list 


let resultadoDeSucesso = Sucesso 
let resultadoComErros = Erros ["Inválido”"] 


A sintaxe de criação e utilização é bastante simplificada, basta o 
identificador seguido do valor correspondente. Isso inclui os casos 
em que o valor é um record ou uma tupla, conforme o exemplo: 


type Inteiro0OuBool = 
| Inteiro of int 
| Bool of bool 


type Pessoa = { Nome:string ; Idade:int + 


type DiscriminatedComplexo = 
| IntOuBool of Inteiro0ouBool 
| PessoaDoDiscriminated of Pessoa 
| Tupla of int * string 


let inteiroDoDiscriminated = Inteiro 1 
let intOuBool = IntOuBool inteiroDoDiscriminated 


let pessoa = PessoaDoDiscriminated { Nome="Gabriel" ; Idade = 26 } 
let tupla = Tupla (3, "Gabriel") 


A desconstrução dos valores destes tipos também é simples, mas 
exige um comando da linguagem que foi visto no início do capítulo: 
pattern matching. O exemplo a seguir ilustra a criação de uma 
função para escrever tanto um inteiro quanto um booleano no 
console: 


let inteiroDoDiscriminated = Inteiro 1 
let boolDoDiscriminated = Bool false 


let escreveInteiro0OuBool inteiroOuBooleano = 
match inteiroOuBooleano with 
| Inteiro valorInteiro -> printfn "Xi" valorInteiro 
| Bool valorBooleano -> printfn "%b" valorBooleano 


escreveInteiroOuBool boolDoDiscriminated 
escreveInteiroOuBool inteiroDoDiscriminated 


Há também uma abordagem bastante comum em discriminated 
unions, trata-se da criação de tipos com apenas um identificador. 
Isso pode soar inútil em um primeiro momento, mas há um reforço 
na segurança de tipos. 


O exemplo a seguir será feito para melhorar a compreensão da 
importância de discriminated unions, incluindo os que possuem 
apenas um caso. Neste exemplo, será considerada uma aplicação 
fictícia em que os clientes são cadastrados. 


Há um requisito que indica que o nome e o sobrenome do cliente 
devem ser tratados de formas diferentes, e esta informação é 
bastante importante. Além disso, cada cliente possui um 
identificador do tipo inteiro. 


Esta tarefa de modelagem será feita de três formas diferentes e, em 
cada caso, também será criada uma função que constrói os clientes 
da aplicação. A primeira abordagem seria: 


type Cliente = { Id:int ; Nome:string ; Sobrenome: string + 


let criarCliente id nome sobrenome = 


{ Id = id ; Nome = nome; Sobrenome = sobrenome } 


let id = 1 
let nome = "Gabriel" 
let sobrenome = "Schade" 


let clientei = criarCliente id nome sobrenome 


Talvez esta primeira abordagem seja a mais simplória de todas. 
Sabemos que é importante tratar o nome e o sobrenome de forma 
diferente nesta aplicação, mas o código não considera esta 
abordagem. 


Tanto o valor gabriel quanto Schade que foram informados por 
parâmetro pertencem ao tipo string . Poderíamos simplesmente 
invertê-los por engano e o programa continuaria a compilar 
normalmente, afinal, a responsabilidade de controlar isso foi 
passada ao desenvolvedor. Veja o exemplo: 


let cliente2 = criarCliente id sobrenome nome 


O valor ciientez possui um problema de acordo com o domínio de 
nossa aplicação, mas o código não está tratando isso. Como 
segunda abordagem, criaremos apelidos para os tipos string, um 
apelido para nome e outro para o sobrenome. Também incluiremos 
um apelido para o identificador de clientes. 


type IdentificadorCliente = int 
type Nome = string 
type Sobrenome = string 


Além disso, é necessário alterar os tipos dos valores do record 
Cliente. 


type Cliente = ( 
Id: IdentificadorCliente ; 
Nome: Nome ; 
Sobrenome: Sobrenome 3 


Infelizmente, mesmo que seja explicitado o tipo dos parâmetros para 
a função criarcliente, ainda será permitido passar estas 
informações de forma errada. 


let criarCliente id (nome:Nome) (sobrenome:Sobrenome) = 
{ Id = id ; Nome = nome; Sobrenome = sobrenome } 


let id = 1 
let nome = "Gabriel" 
let sobrenome = "Schade" 


let cliente1 = criarCliente id nome sobrenome 
let cliente2 = criarCliente id sobrenome nome 


Isso ocorre devido ao fato de que os apelidos não criam novos tipos, 
são apenas uma forma de referência para o tipo apelidado. Dessa 
forma, os tipos Nome € Sobrenome são simplesmente strings, sem 
nenhuma diferença entre si. 


Na terceira abordagem, mapearemos o domínio de uma forma muito 
mais explícita. Como os valores referentes aos nomes e aos 
sobrenomes devem ser tratados de forma diferente, eles devem 
pertencer a tipos diferentes. 


Este é exatamente o caso no qual devemos usar discriminated 
unions com apenas um caso. Nele é preciso criar novos tipos para 
diferenciá-los dos tipos existentes, mesmo quando eles não se 
encaixam em um determinado grupo. 


type Nome = | Nome of string 
type Sobrenome = | Sobrenome of string 


Diferente do caso dos apelidos, ao declararmos os discriminated 
unions de um caso, estamos criando um novo tipo. A estrutura do 
record cliente e a função para criar um cliente podem permanecer 
iguais: 


type Cliente = { Id:int ; Nome:Nome ; Sobrenome: Sobrenome + 


let criarCliente id nome sobrenome = 
{ Id = id ; Nome = nome; Sobrenome = sobrenome } 


Neste caso, após a refatoração dos tipos, as chamadas para 
construção do clientei € clientez passam a gerar erros de 
compilação. Isso acontece porque os valores nome € sobrenome São 
do tipo string e espera-se um Nome € UM sobrenome na função. 


Então, é necessária a refatoração da criação destes valores, para 
que passem a receber o tipo correto. Para fazer isso, basta inserir o 
identificador do tipo antes do valor que está sendo atribuído, 
conforme o código: 


let id = 1 
let nome = Nome "Gabriel" 
let sobrenome = Sobrenome "Schade" 


Neste ponto a função passa a compilar corretamente quando os 
parâmetros estão na ordem correta, e apresenta problemas caso 
sejam passados na ordem incorreta: 


let clientei = criarCliente id nome sobrenome 
let clienteQueCausaErroDeCompilacao = criarCliente id sobrenome nome 


let clienteQueCausaErroDeCompilacao = 
criarCliente id sobrenome nome 


This expression was expected to have type 
Nome 

but here has type 
Sobrenome 


Figura 5.4: Erro de compilação ao criar novos tipos 


Outro ponto interessante em discriminated unions de apenas um 
caso é que eles dispensam o uso do pattern matching tradicional, 
podendo ser atribuídos através de uma forma mais simples. 


let nome = Nome "Gabriel" 
let (Nome nome2) = nome 


No exemplo anterior, o valor nome é do tipo nome e o valor nomez é 
apenas uma string. Isso ocorre porque o tipo nome foi desconstruído 
na atribuição do valor nomez . Mesmo sendo uma sintaxe mais 
simples, esta operação ainda é considerada um pattern matching. 


Valores opcionais com discriminated unions 


Existe um caso específico de discriminated union já inserido na 
linguagem, o valor option. Ele é amplamente usado para 
representar dados não confiáveis, em que pode não haver um valor. 


Estes dados podem pertencer tanto ao conjunto de dados de 
entrada quanto de saída. Seu sistema pode precisar que o usuário 
digite seu nome antes de salvar seus dados. Mas e se ele não 
preencher? 


Até mesmo em casos mais simples, imagine que você está 
programando a função de divisão entre dois números em uma 
aplicação que possui as funções de uma calculadora. O resultado 
de uma divisão sempre será um número? Mas em casos nos quais 
o divisor for zero, o que a função deve retornar? 


Nos dois casos descritos, deve-se utilizar o tipo option. No primeiro 
caso, para o parâmetro da função e, no segundo, para seu retorno. 
A ideia principal por trás do tipo option é mapear estes cenários 
para que os dados sejam manipulados corretamente. 


A definição formal do option é um discriminated union de dois 
casos: some € None, para quando houver algum ou nenhum valor, 
respectivamente. 


type Option<'a> = 
| Some of 'a 
| None 


Conforme a definição formal, podemos notar que o valor some 
possui o tipo 'a. Mas o que é este tipo”? 


Nos capítulos anteriores, já foram mostrados exemplos em que o 
próprio compilador atribui este tipo para os parâmetros de uma 
função para representar um tipo genérico. Isto é, ele é uma 
marcação para denotar que qualquer tipo pode ser informado em 
seu lugar. 


Com o tipo option, também funciona assim. Dessa forma, é 
necessário associar um outro tipo a ele, ou seja, não existe um valor 
apenas option, Mas sim string option, int option, Cliente option €O 
assim por diante. 


Veja a declaração de um tipo opcional: 


let talvezUmaString = Some “Aprendendo tipos opcionais" 
let talvezOutraString = None 


A grande sacada dos tipos opcionais é o que já vimos nos próprios 
discriminated unions, o pattern matching. Com isso, temos certeza 
de que estaremos cobrindo os casos em que o dado não é 
informado corretamente, conforme o código: 


match talvezUmaString with 
| Some texto -> printfn "%s" texto 
| None -> printfn "Valor inválido" 


Uma segurança que existe em utilizar o pattern matching é que 
nunca haverá uma tentativa de acessar o valor caso ele esteja 

inválido, já que a função chamada (no caso none ) não informa 

nenhum parâmetro. 


Existem outras formas de acessar o valor de um tipo opcional, mas 
o caso ideal e muito mais indicado é com o pattern matching. O 
código a seguir ilustra como utilizar um valor opcional com um 
desvio condicional. 


if talvezUmaString.IsSome 
then printfn "%s" talvezUmaString.Value 
else printfn "Valor inválido" 


Apesar de não haver erros nesta implementação, acessar a 
propriedade value diretamente, como foi apresentado, vai contra um 
dos conceitos do paradigma funcional, que é a priorização de 
expressões em vez de atribuições. 


Outro problema em potencial em acessar a propriedade value 
diretamente é a possibilidade de não haver valores. Neste caso, 
será gerada uma exceção, da mesma forma que os valores nulos. 


Qual a diferença entre valores opcionais e valores nulos? 


Esta confusão ocorre com frequência devido ao contato já existente 
com o valor nulo, ou nul1 . Conceitualmente, valores nulos e valores 
opcionais são bastante diferentes. Além disso, a própria utilização 
desses dois valores é bem diferente. De forma geral, os valores 
opcionais são mais seguros contra erros em sua aplicação. 


Voltaremos ao CÊ para realizarmos um teste com valores nulos: 


public int TesteComValor() 
{ 


string texto = “Testando valor nulo"; 
return texto. Length; 


public int TesteComNulo() 
{ 


string texto = null; 
return texto.Length; 


} 


Estes dois métodos compilam perfeitamente, afinal, em C# o valor 
null Significa que a referência ou ponteiro que a variável está 
apontando não existe mais, mas possui todas as características do 
tipo a qual ela foi atribuída. 


No caso anterior, o valor nu11 foi atribuído à variável texto . Na linha 
seguinte, podemos acessar qualquer método ou propriedade, como 
a propriedade Length, por exemplo. Isso ocorre porque o compilador 
entende o valor null exatamente da mesma forma com que 
entende o tipo string (neste caso). 


Apesar do compilador permitir fazermos isso, olhando este método 
fica evidente que ele causará uma exceção do tipo 


NullReferenceException . 


Vamos ao Ff novamente. Agora, faremos o mesmo exemplo, mas 
dessa vez com O option. 


let testeComValor = Some "Testando valor nulo” 
let testeSemValor = None 


Neste caso, não conseguimos acessar nenhum método ou 
propriedade do tipo string no caso do valor testesemvalor . Isso 
ocorre porque o tipo string option é diferente do tipo string. 


Na verdade, não podemos acessar os métodos e as propriedades 
nem mesmo no caso do valor testecomvalor . Os tipos opcionais não 
possuem as mesmas propriedades e métodos do que uma string 
(ou de qualquer outro tipo associado como opcional). 


Como já foi mostrado anteriormente, para obter algo deste valor é 
necessário utilizar o pattern matching, conforme o exemplo: 


let lenght = 
match testeComValor with 
| Some texto -> texto.Length 
| None -> O 


Neste caso, precisamos sempre tratar o caso em que não houver 
valor. Dessa forma, evitamos problemas com o tipo null. 


Na verdade, toda a relação do valor nu11 com o Fá é um tanto 
diferente. O problema de falta de um dado, ou de um dado inválido, 
é tratado com O option, mas os problemas e preocupações sobre 


ponteiros e variáveis não inicializadas que o null trata não existem 
no paradigma funcional. 


Um valor em F# não se tornará um nulo, porque não existe um 
tempo entre a declaração da variável e a sua atribuição. Como já 
vimos, ao utilizar o comando 1et , já é necessário informar o valor 
que será inicializado. 


Por conta da imutabilidade, temos a garantia de que o valor nulo 
também não será atribuído após a inicialização de um valor. Na 
verdade, temos a garantia de que o valor não mudará nem mesmo 
para outro valor. 


Apesar destas garantias, ainda há o conceito de nui1 implementado 
na linguagem F#, mas isso ocorre por conta da interoperabilidade 
com as outras linguagens do framework .NET. 


INTEROPERABILIDADE 


Interoperabilidade é a capacidade de duas coisas se 
comunicarem de forma transparente. Neste exemplo específico, 
é a capacidade da linguagem F# e das outras linguagens da 
plataforma .NET se comunicarem dentro de uma mesma 
aplicação. 


Considerando este cenário, podem existir códigos escritos em 
C# e F# dentro de uma mesma aplicação. Portanto, as duas 
linguagens precisam conseguir lidar com os mesmos tipos. Este 
é o motivo do F# também possuir o valor null. 





A princípio, em uma aplicação puramente funcional em Ff, não 
deverá ocorrer problemas com valores nulos. Na verdade, os 
valores null são tratados como um dado anormal na aplicação. 


Uma forma muito indicada de evitar estes problemas mesmo em 
aplicações em que há interoperabilidade com outras linguagens é 


inserir uma validação de dados, convertendo os tipos que podem 
conter null para tipos opcionais. 


No exemplo a seguir, será simulado que uma variável é uma string 
que foi recebida do C via interoperabilidade. 


let stringQueVeioDoCSharp = “Teste com string do CH" 


let stringParaUsarNaAplicacao = 
match stringQueVeioDoCSharp with 
| null -> None 
| valor -> Some valor 


Com isso, há garantia de que os dados não confiáveis serão 
tratados adequadamente e que não ocorrerá problemas com valores 
nulos no ciclo de vida da aplicação. 


5.7 Unidades de medida 


Uma outra forma de modelar mais precisamente os tipos de sua 
aplicação é através de unidades de medida. Esta funcionalidade 
pode ser utilizada somente em conjunto com tipos numéricos. 


Através disso, o F# se torna capaz de diferenciar valores numéricos 
iguais com unidades de medida diferente. Por exemplo, 100 gramas 
e 100 quilos não representam a mesma quantidade, mesmo os dois 
valores sendo 100. 


Para definir uma unidade de medida, é necessário usar o atributo 
[<Measure>] . Veja os exemplos: 


[<Measure>] type grama 
[<Measure>] type quilo 
[<Measure>] type tonelada 


Depois de definir as unidades de medida, é possível utilizá-las em 
conjunto com números inteiros e decimais. 


let pesol = 500<grama> 
let peso2 = 10<quilo> 
let peso3 = i<tonelada> 


As unidades de medida podem representar um amplo conjunto de 
dados, e é possível até combinar duas unidades diferentes através 
de uma expressão, para que juntas representem uma nova unidade. 
Podemos criar as unidades de medida para distâncias e tempos. 
Após isso, podemos combiná-las para possuirmos diferentes 
medidas de aceleração. 


Primeiro, serão definidas as unidades de medida para distâncias: 
quilômetros ( km ) e metros ( m ). 


[<Measure>] type km 
[<Measure>] type m 


Agora as unidades de tempo: horas (hn ) e segundos (s ): 


[<Measure>] type h 
[<Measure>] type s 


Com isso, podemos criar valores que combinem estas duas 
unidades: 


let velocidadeDoCarro = 130<km/h> 
let velocidadeDoSom = 340.29<m/s> 


Além de realizar a combinação das unidades no próprio valor, 
também é possível utilizar estas combinações para definir novos 
tipos: 


[<Measure>] type velocidade = km/h 
[<Measure>] type velocidade? = m/s 


Assim, temos um sistema de tipagem numérica que é capaz de 
gerar modelagens que se aproximam do mundo real. No mundo 
real, é comum lidarmos com diferentes unidades de medida e 

fatores de conversão o tempo todo. Sabemos que 1.000 metros 


formam 1 quilômetro e assim por diante, mas como podemos 
explicitar isso em nosso código? 


Vamos tentar realizar uma soma de 100 quilômetros com 10 metros: 


let quilometros = 100.0<km> 
let metros = 1000.0<m> 


let soma = quilometros + metros 


Ao fazer isso, o compilador exibirá um erro dizendo que as unidades 
de medidas não são compatíveis. Precisamos fazer com que estas 
unidades se tornem compatíveis, assim como fazemos no mundo 
real. 


Será preciso escolher em qual unidade de medida o cálculo será 
feito e aplicar uma taxa de conversão no valor que está na unidade 
de medida errada. 


Serão realizados os dois exemplos, primeiro o cálculo será feito em 
quilômetros, depois em metros. Como já foi dito, 1.000 metros 
equivalem a 1 quilômetro. Então, podemos concluir que 1 metro é 
0.001 quilômetro. Este é o fator de conversão que será usado. 


let quilometros = 100.0<km> 

let metros = 1000.0<m> 

let fatorConversaoQuilometroPorMetro = 0.001<km/m> 

let metrosConvertidos = metros * fatorConversaoQuilometroPorMetro 


let soma = quilometros + metrosConvertidos 


O resultado final pode ser avaliado em código como: val soma : 
float<km> = 101.0 , OU Seja, 101 quilômetros. Para transformar tudo 
para metros, precisamos de taxa de conversão de que falamos 
anteriormente, 1.000. 


let fatorConversaoMetroPorQuilometro = 1000.0<m/km> 
let quilometrosConvertidos = quilometros * 
fatorConversaoMetroPorQuilometro 


let somaEmMetros = quilometrosConvertidos + metros 


Ao avaliarmos o resultado, é obtido o seguinte valor: val somaEmMetros 
: float<m> = 101000.0 , OU Seja, 10.100 metros. Realizamos a mesma 
operação, mas com unidades de medidas diferentes, com isso, 
obtivemos representações diferentes do mesmo valor. 


Assim como foi feito anteriormente, é possível converter valores 
sem unidades de medida para valores em uma determinada 
unidade. Para fazer isso, também é necessário utilizar taxas de 
conversão, mas nesse caso o mais comum é usar uma taxa de um 
para um, dessa forma, o valor não é alterado, mas a unidade de 
medida é incorporada ao valor. 


let inteiro = 30 


let quilometrosAPartirDeUmInteiro = inteiro * 1<km> 


No exemplo anterior, o valor quilometrosaPartirDeumInteiro é avaliado 
como int<km> pelo mesmo motivo das conversões feitas 
anteriormente. 


Será feito mais um exemplo, mas desta vez será criada uma função 
para elevar um valor ao quadrado. Esta função possui a seguinte 
definição: 
let elevarAoQuadrado valor = 

valor * valor 


Agora utilize esta função para elevar ao quadrado valores com 
unidades de medida diferentes. 


let resultadoi = elevarAoQuadrado 2<m> 
let resultado? = elevarAoQuadrado 3<km> 
let resultado3 = elevarAoQuadrado 4<h> 


O resultado será um erro de compilação. Isso ocorre porque a 
função vai inferir o tipo de sua primeira utilização. Então, se 
avaliarmos o parâmetro valor, ele será do tipo int<m>. 


Todos os exemplos anteriores a este utilizaram as unidades de 
medidas declaradas explicitamente, mas neste caso não é possível 
saber qual a unidade de medida que será passada para a função. 
Precisamos tornar a função genérica o suficiente para trabalhar com 
qualquer unidade, mas como isso pode ser feito? 


A resposta é generics. 
Unidades de medidas com generics 


Utilizando generics, é possível criar funções que recebam um 
parâmetro sem definir uma unidade de medida específica. Para isso, 
é necessário explicitar o tipo do parâmetro desejado e usar o 
caractere coringa underscore (. ) como unidade de medida. 


let elevarAoQuadrado (valor: int< >) = 
valor * valor 


let resultado1 = elevarAoQuadrado 2<m> 
let resultado2 = elevarAoQuadrado 3<km> 
let resultado3 = elevarAoQuadrado 4<h> 


Desta forma, a multiplicação ocorre normalmente. Mas fique atento. 
Assim como na vida real, ao multiplicar dois valores de uma 
determinada unidade de medida, você também altera a unidade de 
medida do resultado. Por exemplo, a multiplicação de dois valores 
em metros resulta em um valor em metros quadrados, e assim por 
diante. 


Agora vamos para mais um exemplo que é necessário utilizar 
generics. Desta vez, vamos fazer com que dois valores diferentes 
da mesma unidade de medida sejam multiplicados. 


let multiplicarValores (valor1: int< >) (valor2: int< >) = 
valor1 * valor2 


let resultado4 = multiplicarValores 2<m> 10<m> 
let resultado5 = multiplicarValores 3<km> 4<km> 


Aparentemente nossa função está correta, certo? Não. 


Não há nada em nossa função que garanta que as duas unidades 
de medida dos parâmetros sejam a mesma, então será possível 
multiplicar valores em unidades diferentes. 


let resultadoErrado = multiplicarValores 3<m> 10<km> 


No exemplo anterior, não ocorre nenhum erro de compilação, então 
estamos quebrando uma regra do sistema. Felizmente, usar o 
caractere coringa não é a única forma de representar unidades de 
medidas genéricas, também é possível criar uma representação 
com letras. 


De fato, se avaliarmos os tipos dos parâmetros valor1 € valor2,0 
compilador o identifica como: int<'u> € int<'v>. OU seja, 
internamente o compilador sempre representa as unidades 
genéricas através de letras. 


Utilizando as letras, é possível definir se valores diferentes devem 
usar unidades diferentes ou forçar que utilizem a mesma. 


let multiplicarValores (valor1: int<'u>) (valor2: int<'u>) = 
valor1 * valor2 


Desta forma, os dois parâmetros podem usar qualquer unidade de 
medida, desde que os dois possuam a mesma, já que as duas estão 
sendo identificadas com a mesma letra 'u. 


Com esta alteração, a chamada desta função passando um valor 
em metros e outro em quilômetros passa a dar erro de compilação e 
a regra predefinida é cumprida. Caso esta regra não tivesse sido 
definida e fosse possível informar tanto unidades iguais quanto 
unidades diferentes, bastaria identificar a segunda unidade com 
uma outra letra. Comumente são utilizados 'u e 'v. 


5.8 Resumo 


Neste capítulo, uma nova forma de modelagem de dados na 
aplicação foi apresentada. Também foram vistas as funcionalidades 
existentes no Ff para realizar esta tarefa: tuplas, type records, 
discriminated unions e unidades de medida. Além disso, vimos 
como controlar o fluxo de sua aplicação através do pattern 
matching, um controle de fluxo atualmente presente na plataforma 
NET, apenas na linguagem FÃ. 


No próximo capítulo, iniciaremos uma aplicação web, utilizando uma 
abordagem mista entre Orientação a Objeto e o paradigma 
funcional. 


Você pode encontrar os códigos escritos neste capítulo em: 


www .bit.ly/funcional-Cap5. 





CAPÍTULO 6 
Programação web com Ff 


Neste ponto do livro, os assuntos iniciais do paradigma funcional já 
foram vistos. Com os capítulos anteriores, já há o mínimo de 
conhecimento necessário para iniciar uma aplicação real utilizando o 
paradigma funcional. 


Na verdade, é muito mais comum usarmos uma abordagem híbrida, 
explorando os pontos fortes de cada paradigma. Neste capítulo, 
criaremos uma aplicação web que será incrementada até o final do 
livro, assim será possível aplicar todos os conceitos estudados em 
um ambiente mais próximo de um ambiente real. 


"Mas as linguagens funcionais são apenas para propósitos 
científicos ou para cálculos matemáticos!” Esta frase é mencionada 
com certa frequência na internet, mas não passa de um mito ou de 
uma má interpretação de um conceito. 


Boa parte das linguagens funcionais hoje, incluindo FÉ, são 
produtos de propósitos gerais. Isto é, uma aplicação F# é tão restrita 
quanto uma aplicação em Cf, e ambas possuem uma gama de 
plataformas a seu dispor, por exemplo: aplicativos desktop, mobile e 
aplicações web. 


O exemplo que vamos desenvolver a partir deste ponto será uma 
aplicação web, por conta da popularidade da plataforma. Existem 
diversos frameworks diferentes para programação web, mas 
focaremos no framework estabelecido pela Microsoft: ASP.NET 
MVC e Web API. 


O objetivo principal da aplicação é permitir uma gestão de compras 
de produtos. Para isso, serão necessárias algumas funcionalidades 
cadastrais e de gestão, como cadastrar clientes, produtos e efetuar 
o controle das compras propriamente ditas. 


No entanto, antes de iniciarmos esta aplicação, vamos criar o 
projeto web com a linguagem C% para, depois disso, fazer a 
transição para FÃ. Para criar o projeto, acesse o menu File -> New -> 
Project como fizemos em todos os casos anteriores. Mas desta vez, 
selecione o tipo de projeto ASPNET Web Application, conforme a 
figura: 
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Figura 6.1: Criando seu projeto web em CÊ 


Depois de selecionar esta opção, será aberta uma nova janela de 
diálogo para seleção do template. Escolha a opção web aPI e 
certifique-se de que os itens mvc e web aPI estejam selecionados na 
parte inferior da janela. 


New ASP.NET Project - CSharpWeb ? X 


Select a template: 
| A project template for creating RESTful HTTP services 
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Figura 6.2: Criando seu projeto web em C# - Parte 2 


Não é necessário selecionar mais nenhuma opção para o exemplo 
que será feito. 


Após pressionar o botão x, o Visual Studio se encarregará de criar 
o projeto para você. Este processo pode demorar um pouco, pois 
vários pacotes diferentes serão instalados. Após a instalação 
completa, a sua solução deve se parecer com esta: 


e App Data 
e App Start 
e Areas 


e Content 

e Controllers 
e fonts 

e Models 

e Providers 

e Results 


e Scripts 





e Views 


Esta instalação já provê uma série de coisas que uma aplicação 
web comumente precisa, como um mecanismo de login e alguns 
arquivos JavaScript e CSS predefinidos. 


O foco não será percorrer por todas as pastas deste projeto, pois 
diversas estruturas criadas agora existem apenas para o projeto CH. 
Quando migrarmos para Ff, teremos uma estrutura mais enxuta e, 
neste momento, olharemos toda a estrutura com mais calma. No 
entanto, sinta-se à vontade para explorar esta aplicação completa. 
Para o propósito do livro, focaremos em dois pontos: páginas e 
serviços. 


6.1 Páginas e serviços 


Uma aplicação web ASP.NET da forma como criamos é dividida em 
dois principais nichos: o gerenciamento de páginas da sua aplicação 
e os serviços para trabalhar com os dados da aplicação. Eles são 
geridos respectivamente através dos frameworks ASP.NET MVC e 
Web API. 


ÁPLICAÇ ES MVC 


Caso você não esteja familiarizado com este termo, trata-se de 
uma arquitetura de software que consiste principalmente em 


separar a aplicação nas camadas (model, view e controller). 


Você pode encontrar uma explicação mais detalhada da 
Microsoft no link: http://bit.ly/mvc-ms. 





Nos dois casos, os frameworks utilizam controllers para gerenciar as 
requisições em seu software, mas cada um possui suas 
peculiaridades. Primeiro vamos compreender o ASP.NET MVC. 


ASP.NET MVC 


No diretório Controllers , podemos ver três arquivos diferentes: 
AccountController , HomeController € ValuesController . Neste primeiro 
momento, focaremos no Homecontroller para entender seu 
funcionamento. 


public class HomeController : Controller 


{ 
public ActionResult Index() 


{ 
ViewBag.Title = "Home Page"; 


return View(); 


} 


Este controller é uma classe bem pequena, mas podemos tirar 
algumas informações dela. A primeira informação relevante é que 
todo controller MVC precisa herdar a classe controller. 


Os controllers MVC são responsáveis por entregar as visões 
(páginas) requisitadas pelo usuário, por isso temos a instrução 
return View(); no final do método. Em um ambiente web, estas 
visões são páginas HTML que serão renderizadas no navegador do 
usuário. 


A aplicação identifica o nome do arquivo HTML que precisa 
renderizar através de convenção. Neste caso, é utilizado o nome do 
controller e o nome do método. 


No diretório views , haverá um diretório com o mesmo nome do 
controller (removendo o sufixo) e nele haverá um arquivo Index . 
Este é o arquivo que será renderizado quando este método for 
solicitado. 


li Models 9 = public class HomeController : Controller 





b 
b DM Providers ý { 
b IE Results 3 
b M Scripts 11 = public ActionResult Index() 
4 œ Views 12 { 
4 5) Home 13 ViewBag.Title = “Home Page”; 
Index.cshtml 14 
â[@] OlaMundo.cshtml 15 return View(); 
Db IE Shared 
16 f 


â[l@] _ViewStart.cshtml 


Figura 6.3: ASP.NET MVC - Controller -> View 


Mas afinal, como este método é chamado? A resposta é simples, 
através da barra de endereços do navegador! Execute sua 
aplicação web e uma página será renderizada. Por padrão, a página 
renderizada é a página Index do controller Home, e isso acontece 
devido a uma configuração predefinida em aplicações ASP.NET. 


Mas o que aconteceria se precisássemos renderizar uma nova 
página? Cada controller pode conter mais de um método, então 
poderíamos criar um novo método para o controller Home. 


Vamos criar o método olamundo , e a estrutura dele será idêntica ao 
método Index, alterando a propriedade Title para "Olá mundo”, 
conforme o código: 


public ActionResult OlaMundo() 


{ 
ViewBag.Title = "Olá mundo"; 


return View(); 


} 


Agora que o método está pronto, como vamos acessá-lo? É 
simples, atualmente a barra de endereços do navegador deve estar 
apontando para localhost: seguido do número da porta que o Visual 
Studio está utilizando. Após este endereço, você precisará digitar 
/Home/OlaMundo . 


= Œ | O localhost:3291/Home/OlaMundo 
Erro de Servidor no Aplicativo '/'. 


The view 'OlaMundo' or its master was not found or 
searched: 

~/Views/Home/OlaMundo.aspx 
~/Views/Home/OlaMundo.ascx 
~/Views/Shared/OlaMundo.aspx 
~/Views/Shared/OlaMundo.ascx 
~/Views/Home/OlaMundo.cshtml 
~/Views/Home/OlaMundo.vbhtm! 
~/Views/Shared/OlaMundo.cshtm! 
~/Views/Shared/OlaMundo.vbhtml 


Figura 6.4: ASP.NET MVC - Erro ao renderizar página 


Por que este erro está acontecendo? Simples, nossa aplicação web 
não encontrou uma view para entregar ao usuário. Para resolver 
este problema, precisamos criar um arquivo no diretório views > 


Home . 


Para criar uma view, pressione o botão direito do mouse sobre o 
diretório e escolha a opção add > view . Será aberta uma janela com 
algumas opções, tudo o que é necessário fazer é alterar o nome da 
view para que ela corresponda ao nome de nosso método. 


Add View x 


Template: Empty (without model) ~ 


Options: 
[|] Create as a partial view 


Reference script libraries 


Use a layout page: 


(Leave empty if it is set in a Razor viewstart file) 


Figura 6.5: ASP.NET MVC - Nova view 


Nem será necessário editar o arquivo criado; apenas com isso já 
conseguimos ver o resultado. 


€ Œ | © localhost:3291/Home/OlaMundo 


Application nar 





OlaMundo 


© 2017 - My ASP.NET Application 


Figura 6.6: ASP.NET MVC - View OlaMundo 


Nossa aplicação consegue renderizar a view olamundo COM sucesso 
desde que seja digitado corretamente o caminho para acessá-la. 
Note que, após a primeira barra, é necessário informar o nome do 
controller e, após a segunda, o nome do método. Caso seja digitado 
o endereço /Home/Index, O método padrão também será chamado. 


Com isso, finalizamos a compreensão básica do mecanismo de 
rotas do ASP.NET MVC. Agora podemos avançar para o foco 
principal de nosso desenvolvimento: os serviços implementados 
com o framework Web API. 


Web API 


O mecanismo de rotas do framework Web API se assemelha em 
muitos aspectos ao framework MVC, principalmente no que diz 
respeito à composição do endereço e à necessidade de herança de 
um controller base. Entretanto, neste caso, os retornos dos métodos 
não estão ligados às páginas HTMOL, e sim aos dados que um 
serviço expõe ou recebe. 


Será feita uma análise em um controller do Web API, assim como foi 
feito na classe Homecontroller , para compreender o funcionamento 
do framework de serviços em vez do ASP.NET MVC. A 
compreensão de como um controller deste tipo funciona será 
fundamental para a implementação dos serviços em nossa 
aplicação web. Para fins de exemplo, será usada a classe 
ValuesController , afinal, este é um controller que lida com dados e 
não com páginas. 


Ao abrir o arquivo, podemos notar que há um atributo modificador 
(ou anotação) sobre a classe valuesController . Trata-se do atributo 

[Autorize] , que identifica que este controller requer autorização para 
uso. Para efetuar os testes, vamos remover este atributo apagando 
sua linha de código. 


public class ValuesController : ApiController 


{ 
// GET api/values 


public IEnumerable<string> Get() 
{ 


return new string[] { "value1", "value2" 3; 


} 


Outra informação que já podemos visualizar é que este controller 
não herda da classe controller , e sim da classe ApiController . Esta 
é a classe pai para todos os controllers referentes a serviços. Além 
disso, podemos notar que este controller possui mais métodos que o 
HomeController visto anteriormente, mas os métodos Post, Put e 
Delete estão vazios. 


Perceba que há um padrão no nome dos métodos. Cada método 
corresponde ao nome de um verbo HTTP. Isso ocorre porque o 
framework Web API utiliza a arquitetura REST, uma arquitetura para 
criação de serviços web para transferência de dados. 


ARQUITETURA REST 


A arquitetura REST se tornou bastante popular para o 


desenvolvimento de serviços web usando o protocolo HTTP. 
Para mais informações sobre o assunto, acesse o link da 
documentação da Microsoft: http://bit.ly/REST-ms. 





Considerando que somente os dois métodos cet possuem 
implementação, como executamos uma chamada a este método? 
Através do navegador novamente! No entanto, agora usaremos o 
caminho /api/Values . 


€ Œ | O localhost:3291/api/Values/ 
This XML file does not appear to have any style information associa 


<ArrayOfstring xmlns:i="http://www.w3.0rg/2001/XMLSchema-ins' 
<string>valuel</string> 
<string>valueZ</string> 

</Array0Ofstring> 


Figura 6.7: ASP.NET Web API - Values 


Observe que o retorno do método é um XML contendo os dados que 
o método cet retorna. Como o navegador sabe qual dos métodos 
ele precisa executar? 


Existem dois motivos principais: o caminho digitado na barra de 
endereços + o método HTTP. O endereço descreve que será 
chamado um controller web API através do prefixo /api . Após isso, 
é definido o nome do controller, no exemplo /values , mas ainda não 
sabemos qual método do controller será executado, certo? 


Errado. O navegador sempre executa uma requisição através do 
método cET . Para fazermos outros tipos de requisição, será 


necessário instalar uma extensão para seu navegador, ou alguma 
aplicação externa que faça este trabalho. 


EXTENS ES PARA O NAVEGADOR 


Para o Google Chrome: http://bit.ly/JaSon-adad. 


Para o Mozilla Firefox: http://bit.ly/easyRest-adad. 





Para os exemplos do livro, será utilizada a extensão JaSON do 
Google Chrome. Vamos fazer o teste com o método Post do 
controller value . 


Antes de fazer a cnamada através da extensão do navegador, 
vamos alterar o método. Nesta alteração, trocaremos o tipo do 
retorno para string e retornaremos a string passada por parâmetro 
toda em maiúscula, através do método Toupper() . 


public string Post([FromBody]string value) 
{ 


return value.ToUpper(); 


} 


Agora é necessário usar a extensão do navegador informando os 
dados para realizar uma chamada para este serviço: é necessário 
informar a URL (1), o método HTTP (2) e a string que será enviada 
por parâmetro (3). Após preencher as informações, pressione o 
botão de confirmação (4) para visualizar o resultado, conforme a 
imagem: 


"Olá Mundo" (0) 






œ HTTP request = Headers 
http://localhost:3291/api/Values (0) 

POST O) v 
JSON (application/json) v 


& Raw response 'D History 





€, Response 





OLÁ MUNDO 


Figura 6.8: ASP.NET Web API - Values -> Post 


Este foi o exemplo de como a conexão através de serviços é 
realizada e de como a Web API funciona de maneira geral. Com 
isso, compreendemos o básico deste framework. 


A aplicação web que será criada para trabalharmos ao longo do livro 
será totalmente feita em F#. Porém, para que seja possível criar e 
alterar esta aplicação, primeiro precisamos ter uma noção básica de 
como a Orientação a Objeto é implementada em FÊ. 


6.2 Orientação a Objetos em F 


Apesar de o propósito geral da linguagem Ff ser incluir o paradigma 
funcional na plataforma .NET, ela também possui implementações 
de conceitos totalmente voltados ao paradigma orientado a objetos. 


Este suporte existe principalmente para a integração da linguagem 
com o restante da plataforma, para assim abrir possibilidade de 
suporte para diferentes frameworks, como o ASP.NET MVC e o Web 
API, por exemplo. 


Vimos no capítulo passado que os tipos do F# não são classes, mas 
como a linguagem possui suporte para Orientação a Objetos, existe 
uma forma de fazer com que um tipo se comporte como uma classe. 


Classes em F 


Nos exemplos anteriores a respeito dos frameworks web da 
linguagem CX, foi visto que as classes que definem os controllers 
precisam herdar comportamentos de classes base. Para fazer isso, 
é necessária a compreensão de como as classes e interfaces se 
comportam em FÃ. 


Serão implementadas diferentes versões de uma classe para 
representar os dados sobre uma pessoa. A partir desta classe, 
serão explorados os conceitos da Orientação a Objeto, um de cada 
vez, tudo isso para facilitar o momento da migração dos frameworks 
web de Cf para FÊ. 


Será usado um projeto do tipo console em Ff para realizar estas 
implementações da classe Pessoa . Para criar uma classe em FÃ, 
utilizamos uma sintaxe semelhante a um record. Inicia-se com a 
palavra reservada type, seguida pelo nome da classe e os 
parâmetros de seu construtor. 


type Pessoa (nome:string, sobrenome:string) 


Diferente da maior parte das funções do F#, é preciso agrupar os 
parâmetros do construtor em uma tupla, por isso a separação por 


vírgula. Além disso, em construtores é muito comum identificarmos 
os tipos. 


Apenas isso não é o suficiente para termos uma classe, ainda é 
necessário criar as propriedades dela. São estas propriedades que 
vão armazenar o nome e o sobrenome informados no construtor. 


O FX utiliza a palavra reservada member para identificar propriedades 
e funções de uma classe. Então, é possível criar as propriedades 
através da seguinte sintaxe: 


type Pessoa (nome:string, sobrenome:string) = 
member this.Nome = nome 
member this.Sobrenome = sobrenome 


É comum o uso da palavra this antes do ponto que define o nome 
da propriedade, mas não há obrigatoriedade nenhuma. Este trecho 
da sintaxe é simplesmente um nome. Alguns optam pelo termo self 
ou até mesmo dois underscores consecutivos: 


type Pessoa2 (nome:string, sobrenome:string) = 
member self.Nome = nome 
member self.Sobrenome = sobrenome 


type Pessoa3 (nome:string, sobrenome:string) 
member | .Nome = nome 


member | .Sobrenome = sobrenome 


Todos estes casos são perfeitamente válidos. Mas, para fins de 
clareza, os exemplos usarão o termo this. 


Ao avaliar este tipo no FÉ Interactive, é possível notar que ele já é 
identificado como uma classe. 


type Pessoa = 
class 
new : nome:string * sobrenome:string -> Pessoa 


member Nome : string 
member Sobrenome : string 
end 





Figura 6.9: Classe implementada em F# 


Para construir um objeto de uma classe, basta utilizar o nome da 
classe e informar os parâmetros necessários. A palavra reservada 
new Não é necessária. 


let gabriel = Pessoa("Gabriel", "Schade") 


Para acessar as propriedades desta classe, precisamos utilizar os 
nomes identificados nos members. No caso da classe pessoa, 
existem as propriedades nome € sobrenome . Então, para acessar 
estas propriedades de nosso objeto, usamos: gabriel.Nome € 


gabriel.Sobrenome . 


Mesmo Pessoa sendo uma classe, suas propriedades ainda seguem 
o conceito de imutabilidade do F#. Se tentarmos atribuir um novo 
valor para uma das propriedades, receberemos um erro. 


gabriel.Nome <- “Teste” 


No exemplo anterior, o compilador vai acusar: " Property 'Nome' cannot 
be set ", OU Seja, a propriedade nome não pode ser atribuída. Para 
que isso seja possível, é necessário criar as funções get € set, 
assim como é feito em CÊ. 


Para fazer isso, precisamos criar atributos internos na classe, e 
estes devem armazenar o valor recebido do construtor, bem como 


ser variáveis, ou seja, valores mutáveis. Comumente estes atributos 
internos possuem um underscore como sufixo, conforme o exemplo: 


type PessoaComGetESet (nome:string, sobrenome:string) = 
let mutable nome = nome 
let mutable sobrenome = sobrenome; 


Agora que os valores do construtor estão armazenados nos 
atributos internos, é necessário criar as propriedades e seus 
respectivos métodos get € set. 


A sintaxe para a criação destes métodos não é das mais amigáveis, 
pois precisamos declarar o membro como fizemos anteriormente. 
Porém, em vez de igualá-lo a um valor, usamos as palavras 
reservadas with € and para definir os dois métodos. 


member this.Nome 
with get() = “nome 
and set value = nome <- value 


É necessário realizar a mesma operação para a propriedade 
Sobrenome . ÃO término da codificação, a nova classe pessoaComGetEset 
deve estar desta forma: 


type PessoaComGetESet (nome:string, sobrenome:string) = 
let mutable nome = nome 
let mutable sobrenome = sobrenome; 


member this.Nome 
with get() = “nome 
and set value = nome <- value 


member this.Sobrenome 
with get() = | sobrenome 
and set value = sobrenome <- value 


Com isso, é possível alterar as propriedades do objeto 
normalmente, com o mesmo código utilizado anteriormente. 


let gabriel2 = PessoaComGetESet("Gabriel", "Schade”) 
gabriel2.Sobrenome <- “Schade2”" 


Felizmente, só é necessário usar esta forma de declarar 
propriedades caso haja algum comportamento adicional em um dos 
métodos. Para propriedades sem nenhum comportamento adicional, 
em que apenas retornam ou armazenam informações, como foi feito 
anteriormente, recomenda-se utilizar autoproperties. 


As autoproperties são propriedades que geram o corpo dos métodos 
get € set automaticamente, sem que seja necessário definir as 
funções. Para criá-las, não é preciso armazenar o valor recebido no 
construtor em nenhum atributo interno, basta utilizar uma sintaxe 
diferente na declaração do member . 


Nesta sintaxe, usamos as palavras reservadas member val seguidas 
do nome da propriedade, neste caso sem prefixos, e fazemos com 
que ela receba o valor informado no construtor. Por fim, utilizamos a 
palavra reservada with, seguida do nome das funções get e set, 
separados por vírgula. 


type PessoaComAutoproperty (nome:string, sobrenome:string) = 
member val Nome = nome with get, set 
member val Sobrenome = sobrenome with get, set 


A classe gerada desta forma possui o mesmo comportamento que a 
do exemplo anterior. Em algumas situações, em um contexto que 
usa Orientação a Objetos, é necessário criar algum comportamento 
no construtor de uma classe, para realizar validações ou 
inicializações de valores, por exemplo. Para fazer isso em F#, 
precisamos utilizar a palavra reservada do. 


Para este exemplo, será criada a classe pessoacomIdade . Desta vez, 
no construtor será informada apenas a idade da pessoa e, através 
dele, será validado se a pessoa já alcançou a maioridade. Esta 
informação será exposta pela propriedade maioridade que terá 
apenas o método get. 


Antes de executar a validação no construtor, é necessário criar O 
atributo privado maioridade , que será definido a partir da idade: 


type PessoaComIdade (idade:int) = 
let mutable maioridade = false 


member val Idade = idade with get, set 


Por meio da palavra reservada do, é criado o escopo da função do 
construtor; com isso, podemos realizar a comparação necessária e 
atribuir o resultado para o atributo privado maioridade. 


do 
"maioridade <- idade >= 18 


Este escopo é comumente inserido após os atributos privados e 
antes das propriedades, seguindo uma organização bastante similar 
aos códigos em Cf. Agora, para finalizar, será criada a autoproperty 
Maioridade , contendo apenas o método get. 


member val Maioridade = maioridade with get 


Assim, temos a classe pessoaComidade com a função do construtor 
executando uma instrução. 


Outra característica muito usada em classes no paradigma 
orientado a objetos é a herança, que consiste basicamente em 
herdar características definidas em uma classe pai. Também é 
possível fazer isso em F#, pela palavra reservada inherit. 


Crie uma cópia da classe pessoacomidade e renomeie-a para 
PessoaComHeranca . Desta forma, iniciaremos as mudanças a partir do 
código a seguir: 


type PessoaComHeranca(idade:int) = 
let mutable maioridade = false 

do 
"maioridade <- idade >= 18 


member val Idade = idade with get, set 
member val Maioridade = maioridade with get 


Será feita uma implementação para que esta classe herde as 
características da classe pessoacomautoproperty . Assim, objetos desta 
classe também possuirão as propriedades nome € sobrenome . 


A primeira mudança que precisa ser feita é a alteração do construtor 
para que ele também receba o nome e o sobrenome da pessoa. 
Para fazer isso, basta seguir os passos que já foram feitos 
anteriormente: 


type PessoaComHeranca(nome: string, sobrenome:string, idade:int) = 


Agora é necessário informar a intenção de herdar as características 
da classe pessoacomautoproperty . Para isso, utilize a palavra 
reservada inherit seguida pelo nome da classe pai e de uma 
chamada para o construtor desta classe, conforme o código: 


type PessoaComHeranca(nome: string, sobrenome:string, idade:int) = 
inherit PessoaComAutoproperty (nome, sobrenome) 


O fato de a classe possuir ou não uma herança não altera em nada 
a sintaxe da criação de um objeto. Pode-se criar um objeto da 
classe PpessoaComHeranca da mesma forma vista anteriormente: 


let gabriel3 = PessoaComHeranca("Gabriel", "Schade", 26) 


E com isso, o objeto gabriel3 possui as propriedades nome, 


Sobrenome , Idade € Maioridade . 


O último ponto importantíssimo para programação orientada a 
objetos é a criação e utilização de interfaces. O uso desta estrutura 
garante diversos benefícios em termos de desacoplamento de 
código. Felizmente, o suporte à Orientação a Objetos do Ff também 
provê mecanismos para criar e utilizar interfaces. 


INTERFACES 


Interfaces no paradigma orientado a objetos podem ser definidas 
como um tipo abstrato que não contém dados, mas define 
comportamentos através de assinaturas de métodos ou 
propriedades. Através delas, é possível garantir que uma classe 
tenha um método com uma determinada assinatura, garantindo 
uma comunicação entre partes diferentes do software. 


Para saber mais sobre interfaces (neste caso em Cf), acesse: 
http://bit.ly/interface-ms-c. 





O conceito de interfaces será fundamental para a implementação 
dos serviços em Ff, pois como já foi visto, os serviços web API 
funcionam com base no protocolo HTTP. Portanto, os retornos dos 
seus métodos comumente implementam a interface 
IHttpActionResult. 


Criando interfaces 


A criação de interfaces em FÊ é bastante similar à criação de 
classes. Para fazer isso, também é utilizada a palavra reservada 
type e ela também possui members . 


No início do módulo oo , acima da classe pessoa será criada a 
interface IPessoa . A sintaxe usada é a mesma das classes, mas 
neste caso o construtor é omitido: 


type IPessoa 


Após a declaração da interface, vamos determinar quais métodos e 
propriedades ela deve conter. Neste exemplo, a interface conterá as 
propriedades: nome, Sobrenome € NomeCompleto . 


Para a definição das propriedades em uma interface, é necessário 
utilizar as palavras reservadas abstract member antes do nome da 
propriedade e seu tipo, conforme o código: 


type IPessoa = 
abstract member Nome:string 
abstract member Sobrenome:string 
abstract member NomeCompleto: string 


Com este código, definimos que qualquer classe que desejar 
implementar esta interface precisa obrigatoriamente conter estas 
três propriedades. 


A interface IPessoa já está definida; agora será feito com que uma 
classe implemente-a. Para isso, será criada a classe 
PessoaComInterface que iniciará como uma cópia da classe 


PessoaComAutoproperty : 


type PessoaComInterface (nome:string, sobrenome:string) = 
member val Nome = nome with get, set 
member val Sobrenome = sobrenome with get, set 


Após a declaração das propriedades, é necessário declarar a 
implementação da interface através da palavra reservada interface 
seguida do nome da interface e da palavra reservada with. 


interface IPessoa with 


A partir disso, basta declarar os membros da interface normalmente, 
vinculando-os aos membros da classe. Neste ponto, a classe 
PessoaComInterface deve estar similar ao código a seguir: 


type PessoaComInterface (nome:string, sobrenome:string) = 
member val Nome = nome with get, set 
member val Sobrenome = sobrenome with get, set 


interface IPessoa with 
member this.Nome = nome 
member this.Sobrenome = sobrenome 


Se tudo foi implementado de maneira correta, o compilador deve 
estar acusando um erro sobre a interface IPessoa . Este erro está 
ocorrendo devido à falta da propriedade nomecompleto . 


Esta propriedade, como o nome já indica, deve retornar o nome 
completo da pessoa, ou seja, o nome e o sobrenome. Para 

entendermos esta necessidade, podemos concatenar os valores 
nome € sobrenome através da função sprintf , conforme O código: 


member this.NomeCompleto = sprintf "%s %s" nome sobrenome 


Com isso, nossa classe que implementa a interface está completa e 
podemos utilizá-la! 


let gabriel4 = PessoaComInterface("Gabriel", "Schade”") 


Agora, através do objeto gabriels , podemos acessar as 
propriedades da classe e da interface, certo? 


Errado. Caso você tente acessar a propriedade nomecompleto , O 
compilador vai acusar um erro: 


let gabriel4 = PessoaComInterface("Gabriel”, “Schade”) 
let nomeCompleto =|gabriel4.NomeCompleto 
Figura 6.10: Classe implementando uma interface em F# 


Mas o que foi feito errado? Na verdade, nada foi feito errado, mas 
em Ff os membros implementados por meio de interfaces não ficam 
disponíveis nos objetos concretos. 


Para acessar estes membros, é necessário realizar um cast, ou 
seja, uma conversão do tipo original do objeto para o tipo da 
interface. Esta conversão é feita pelo operador upcast, representado 
pelo símbolo :>. 


Ao usar este operador, é necessário seguir a sintaxe: nome do objeto 
:> nome da interface . Assim, podemos acessar as propriedades da 
interface normalmente. 


let nomeCompleto = (gabriel4 :> IPessoa).NomeCompleto 


Este foi o último tópico que será visto sobre a implementação do 
paradigma orientado a objetos em FÃ. Entretanto, com estas noções 
iniciais, já é possível iniciar nosso projeto web para gestão de 
compras totalmente em Ff! 


6.3 ASP.NET MVC e Web API em F 


Neste primeiro momento do capítulo, vamos apenas iniciar a 
aplicação web e reproduzir o mesmo exemplo feito anteriormente 
em Cf. Continuaremos com esta aplicação até o término do livro, 
implementando novas funcionalidades e aplicando os conceitos 
estudados. 


Se você ainda não instalou a extensão F# MVC 5, citada no capítulo 
de introdução, você não conseguirá criar o projeto web. Mas não se 
preocupe, você pode optar por fazer o download do projeto inicial 
através do link: http://bit.ly/fsharp-web-inicial. 


Caso você queira instalar esta extensão e ainda não a tenha, você 
pode fazer através do próprio Visual Studio. Para isso, é necessário 
abrir a janela Extensions and Updates , Selecionar a opção online e 
digitar no campo de pesquisa F# mvc para encontrá-la e instalá-la. 





Extensions and Updates ? xX 
b Installed Sort by: Relevance ~ (2) x E 
A A j a 
E onin (O) 4 F# MVC 5 o Created by: fsharp.org 
F# Web Application ti lates (MVC 5 and Web API 2.2) by R Ril : 
4 Visual Studio Gallery d E empates SN Joy Ryan Rigy Version: 1.13 
Beran Results É Downloads: 24933 
b Controls CodeTrigger Code Generator (C#, WCF, WPF, MVC, SQL) f... Rating: “4 x»: (8 Votes) 
b Templates CodeTrigger - Code Generation (C#, WCF, WPF, MVC SQL) for Visual More Information 
Studio 2012-2015 and SQL Server/Oracle/MySQL Report Extension to Microsoft 


b Tools 


. e 1 on ad mu mnam a 


Figura 6.11: Instalação da extensão F# MVC 5 


Para iniciar o novo projeto, devemos seguir os mesmos passos dos 
projetos anteriores: File -> New Project . Desta vez, selecione o 


template disponível em: visual F# -> Web -> ASPNET , conforme a figura 
a seguir. 


Add New Project 


b Recent .NET Framework 4.5.2 ~| Sort by: Default Mi 
4 
Installed 4 F# ASP.NET MVC 5 and Web API 2 Visual F# 
b Visual C# m 


b Visual Basic 
b Visual C++ 
ENIO) 
Android 
b iOS 
Silverlight 
Test 
tvos 


4 Web (2) 
ASPNET © 


Windows 
SQL Server 


Python 
ò JavaScript 


b Online Click here to go online and find templates. 


Name: FSharpWeb 








Figura 6.12: Criando seu projeto web em F# 


Após isso, será aberta uma nova janela na qual é possível 
especificar quais frameworks serão utilizados no projeto. Selecione 
a Opção mvc 5 and Web API 2.2. 


Please select the desired project. 






MVC 5 and Web API 2.2 Web API 2.2 
Web API 2.2 (Empty) 





| OK | Cancel 





Figura 6.13: Criando seu projeto web em F# 


Assim, o Visual Studio gerará um projeto web totalmente em FX, 
similar ao projeto criado no início do capítulo. Neste ponto, o projeto 
está idêntico ao disponibilizado no link para download. 


É facilmente notável que este projeto possui menos diretórios do 
que a versão em Cf. Isso ocorre porque a versão do Ff inclui 
apenas o mínimo para o projeto ser executável. Além disso, o 
diretório app start é completamente omitido e incorporado ao 
arquivo Global.asax.fs. 


As pastas mais importantes do projeto Controllers e Views 
continuam existindo nesta versão, incluindo as classes 
HomeController € ValuesController que foram usadas na aplicação 
web em Cf anteriormente. Vamos dar uma olhada na classe 


HomeController : 


type HomeController() = 
inherit Controller() 


member this. Index() = 
this.View() 


Perceba que o código dela é muito similar ao código Cf, alterando 
apenas a sintaxe. Neste exemplo, o member definido na classe é o 
método que retorna a view Index. As convenções de métodos e 
diretórios para os controllers e as views também seguem as 
mesmas regras da aplicação em CH. 


Então, é possível replicarmos o exemplo feito anteriormente em C#. 
Basta criarmos um arquivo para representar a view olaMundo NO 
diretório views -> Home, € um método de mesmo nome no 


HomeController . 


member this.0laMundo() = 
this.View() 


Note que é preciso usar o termo this. antes da chamada do 
método view. Precisamos dessa sintaxe porque este método é uma 
implementação da classe pai. 


Agora já é possível acessar a página olamundo ! 


€ C | © localhost:48213/Home/OlaMundo 


Application name 





OlaMundo em F# 


© 2017 - My ASP.NET Application 


Figura 6.14: ASP.NET F# MVC - View OlaMundo 


Como já foi dito anteriormente, o foco desta aplicação não será as 
páginas, mas sim os serviços. Então, a partir deste ponto, 
focaremos nos serviços REST, ou seja, Web API. 


Ao acessar o controller valuesController , podemos notar algumas 
semelhanças, mas também há uma série de diferenças. A primeira é 
que este controller possui apenas 2 métodos cet , diferente do 
controller em C# que possuía diversos métodos, apesar de vazios. 
Também é possível notar, acima da classe e dos métodos, os 
atributos modificadores RoutePrefix € Route, respectivamente. 


Estes atributos também existem em Cf e são usados para alterar as 
rotas (endereços) de acesso aos serviços. Para nosso exemplo, não 
vamos precisar deles, então podemos removê-los. 


Por enquanto, ainda não teremos mais de um método get , logo, 
podemos remover a sobrecarga que espera o parâmetro id. Por 
fim, por convenção, alteraremos a nomeação do member x.Get para 


member this.Get. 


Após estas modificações, o código do controller deve estar bastante 
similar ao código a seguir: 


type ValuesController() = 
inherit ApiController() 
let values = [|"valuel";"value2"|] 


member this.Get() = 
values 


E já podemos acessá-lo através do navegador utilizando o sufixo 
/api/values na barra de endereços: 


C | O localhost:48213/api/values 


This XML file does not appear to have any style inforr 





v<Array0OfString xmlns:xsi="http://www.w3.0rg/200] 
<string>valuel</string> 
<string>valueZ</string> 
</Array0fString> 


Figura 6.15: ASP.NET Web API - Values 


Com estas implementações, já é possível trabalharmos em cima de 
uma arquitetura voltada a serviços REST, armazenando e provendo 
dados. Vale ressaltar que o foco desta aplicação é colocar em 
prática os conceitos apresentados, então vamos omitir algumas 
características arquiteturais necessárias para uma aplicação mais 
robusta. 


6.4 Resumo 


Neste capítulo, foram apresentados os frameworks ASP.NET MVC e 
Web API, utilizados para controlar as páginas da aplicação e os 
serviços disponibilizados em uma aplicação web. Estes dois 
frameworks foram apresentados tanto na linguagem Cf quanto em 
F#. Além disso, foi visto como o paradigma orientado a objetos é 
implementado na linguagem FX, para que seja possível 
compreender o funcionamento básico dos controllers web API. 


No próximo capítulo, iniciaremos os serviços que interagem com os 
dados da aplicação, começando o trabalho com coleções de dados 
e focando principalmente na mais popular delas: as listas. 


Você pode encontrar os códigos escritos neste capítulo em: 


www.bit.ly/funcional-Cap6 





CAPÍTULO 7 
Persistência e coleções 


No mundo de hoje, é comum enfrentarmos cenários em que é 
necessário trabalhar com uma grande quantidade de dados. 
Comumente utiliza-se um sistema gerenciador de banco de dados 
para lidar com a persistência e a recuperação dos dados. 


Para que não seja necessário instalar nenhum sistema gerenciador 
de banco de dados, nossa aplicação web para gestão de compras 
terá um módulo próprio para emular um mecanismo de banco de 
dados relacional através de arquivos JSON. 


JSON 


JavaScript Object Notation: é um formato de texto que utiliza 
convenções para armazenamento de dados. Este formato é 


independente de linguagem de programação, facilitando a 
integração de componentes de softwares heterogêneos. Devido 
a isso, a troca de mensagens através de serviços REST 
normalmente utiliza este formato. 





7.1 Banco de dados através de JSON 


Para a manipulação de arquivos JSON, será utilizada uma biblioteca 
bastante popular na plataforma .NET: newtonsoft.Ison . Ela é 
automaticamente incorporada a um projeto web .NET, portanto já é 
possível acessar as funções disponíveis nela. 


Esta biblioteca foi desenvolvida seguindo o paradigma orientado a 
objetos e, mesmo não havendo problemas com a mescla dos 


paradigmas dentro de um mesmo sistema, é comum isolar os 
pontos onde essa mesclagem ocorre. 


A integração da linguagem Ff com os métodos desenvolvidos 
usando o paradigma orientado a objetos faz com que seja 
necessário informar os parâmetros em formato de tuplas. Para que 
não seja preciso que o consumidor da função se preocupe em como 
deverá passar os parâmetros, é comum encapsular estes 
comportamentos em funções que seguem o paradigma funcional. 
Dessa foram, o código fica mais organizado e padronizado, já que 
todas as funções serão chamadas da mesma maneira. Estes 
componentes são chamados de wrappers. 


A criação de um wrapper é uma tarefa bastante comum no 
desenvolvimento em FX, principalmente devido à popularidade da 
linguagem CH. Felizmente a criação de um wrapper é uma tarefa 
bastante simples. 


Para isso, vamos criar um novo arquivo chamado wrappers , que vai 
conter todos os módulos de wrappers de nossa aplicação. O 
primeiro wrapper que será criado será responsável por isolar as 
funções referentes ao formato JSON. 


Este arquivo declarará o namespace wrappers e, inicialmente, o 
módulo aninhado Json . Neste módulo, utilize o comando open para 
que seja possível acessar as funções do pacote Newtonsoft.Ison, 
conforme o código: 


namespace Wrappers 
open Newtonsoft.Json 
module Json = 


Agora vamos criar as duas funções de nosso wrapper: serializar € 
desserializar , que são responsáveis respectivamente por converter 


um objeto em um texto no formato JSON, e converter um texto no 
formato JSON em um objeto. 


Primeiro, vamos implementar a função serializar . Ela receberá o 
objeto que será serializado através de parâmetro e deve retornar a 
string contendo o JSON deste objeto. Para realizar a conversão, 
basta utilizar o método 3sonconvert.Serializeobject do pacote que 
importamos anteriormente. 


module Json = 


let serializar objeto = 
JsonConvert.SerializeObject(objeto) 


A função desserializar é bastante similar a esta, mas usaremos o 
método bDeserializeobject . Entretanto, ao utilizar o método 

JsonConvert .Deserializeobject , é necessário informar o tipo que 
esperamos como retorno da conversão. Para que isso seja possível, 
precisamos usar generics, conforme o código a seguir. 


let desserializar<'a> json = 
JsonConvert.DeserializeObject<'a>(json) 


Sinalizando o parâmetro de tipo com a notação <'a>, fazemos com 
que o tipo seja informado somente no momento em que este 
método for chamado. O mesmo não se aplica para o parâmetro 
json , que já é definido como tipo string na própria assinatura do 
método. 


Com isso, finalizamos o wrapper para a serialização dos dados e 
podemos iniciar o wrapper para leitura e escrita dos arquivos. 
Fazemos isso para que nossos dados convertidos em JSON fiquem 
salvos em arquivos em disco, assim não serão perdidos mesmo que 
a aplicação feche. 


Também criaremos o módulo arquivo no namespace wrappers . 
Neste caso, é preciso utilizar o comando open para o namespace 
System.10 . Ele é responsável por fazer a leitura e a escrita de 
arquivos. 


Vamos criar as funções salvar € abrir, responsáveis por salvar ou 
abrir os arquivos JSON da aplicação. Internamente estas funções 
executarão os métodos File.writenllText € File.ReadAllText, 
respectivamente. 


module Arquivo = 
open System. IO 


let salvar diretorio conteudo = 
File.WriteAllText(diretorio, conteudo) 


let abrir diretorio = 
File.ReadAllText (diretorio) 


Por fim, ainda neste módulo, vamos criar a função que verifica se 
um arquivo de um determinado diretório existe. Esta função será um 
wrapper para o método File.Exists: 


let existe diretorio = 
File.Exists(diretorio) 


Agora os wrappers necessários para o banco de dados já estão 
prontos, então podemos iniciar o código responsável pelas 
operações e estruturas do banco de dados. A estrutura mais comum 
para armazenar dados em um banco de dados são as tabelas. Em 
nossa aplicação, cada tabela será representada por um arquivo 
JSON diferente. Portanto, cada uma delas precisa conter o caminho 
de seu arquivo. 


Isso será representado através do tipo Tabela no módulo 


Persistencia :! 


type Tabela = { 
Arquivo: string 


} 


Além do diretório do arquivo, é necessário que a tabela contenha as 
informações que ela armazena. Como o tipo dos dados que cada 
tabela armazena pode variar, é necessária a utilização de generics. 


Desta forma, cada tabela poderá armazenar um valor de tipo 
diferente. 


A implementação é similar ao que fizemos anteriormente no método 
desserializar , sendo necessário utilizar o mesmo tipo de notação. 
Após anotar que o tipo Tabela usa generics, deve-se criar uma 
propriedade chamada Dados que será deste tipo genérico. 


module Persistencia 


type Tabela<'e> = { 
Arquivo: string 
Dados: 'e 


} 


Com isso, é possível criar tabelas que armazenem valores de tipos 
diferentes uma da outra. O campo Dados sempre vai receber valores 
do tipo que a tabela armazena, sem que seja necessária a criação 
um novo tipo de tabela. Veja o exemplo: 


let tabelaInteiro = { 
Arquivo = @"D:\Documentos\F#\tabelaInteiro.json"; 
Dados = 1 


let tabelaString = { 
Arquivo = @"D:\Documentos\F#\tabelaString.json"; 
Dados = "Teste de tabela” 


} 


Nos dois casos anteriores, os valores criados são do tipo Tabela, 
mas os dados de cada uma delas são de tipos diferentes. O primeiro 
exemplo usa um inteiro, enquanto o segundo utiliza uma string. 


Uso DO @ EM UMA STRING 


Perceba que o preenchimento da propriedade arquivo é feito 
com uma string possuindo o caractere @ como prefixo. Este 
desabilita o funcionamento do caractere V e transforma o texto 
em valor literal. 


Para mais informações, acesse o link: http://bit.ly/a-string-ms. 





Agora a estrutura que representa uma tabela de dados está criada, 
mas ela ainda não está preparada para receber mais de um valor, 
algo necessário em um banco de dados. Para que seja possível 
armazenar mais de uma informação, é necessário o uso de 
coleções. 


Coleções para manipulação de dados 


As coleções são estruturas compostas que armazenam 
simultaneamente mais de um valor. Existem diversas coleções 
diferentes disponíveis na plataforma .NET, e algumas delas 
possuem uma implementação própria da linguagem F#: list, 


sequences , array, map @ set. 


Estas coleções possuem individualidades e especificidades para 
determinadas situações. Em nossa aplicação, utilizaremos 
principalmente o tipo list. 


Para fazer com que o tipo Tabela passe a armazenar vários valores 
em vez de apenas um, basta inserirmos a palavra 1ist após o tipo 
genérico, algo bastante similar ao que foi feito com o tipo option no 
capítulo sobre tipos. 


type Tabela<'e> = { 
Arquivo: string 
Dados: 'e list 


Assim, garantimos que nossa tabela seja capaz de armazenar mais 
de uma informação. Mas o que a palavra 1ist representa de fato? 


A primeira coisa importante a se esclarecer é que o tipo 1ist da 
linguagem F# não é o mesmo tipo List da linguagem CH. Avaliando 
o nome completo dos tipos, é possível notar que o namespace é 
completamente diferente: 


e CH — System.Collection.Generic.List<'T> 
e FE— Microsoft.FSharp.Collections.List<'T> 


A principal diferença entre as duas coleções é que a lista do F%, 
assim como quase tudo da linguagem, é um valor imutável, 
enquanto a lista em C# é um tipo mutável. O módulo para usar as 
mesmas listas do C# em F# é chamado de Rresizearray . 


Agora vamos criar a inicialização de nosso banco de dados. A 
primeira etapa será a criação do tipo contexto . Este tipo será a 
representação de todo o banco de dados da aplicação, ou seja, 
todas as tabelas. 


Começaremos apenas com uma tabela de números inteiros e uma 
tabela que armazene textos (strings), conforme o código: 


type Contexto = { 
Inteiros: Tabela<int> 
Textos: Tabela<string> 


} 
Bastante simples, certo? 


Agora serão criadas as funções para inicializar as tabelas da 
aplicação e, para isso, deve ser criada a função inicializarTabela NO 
módulo Persistencia . Esta função esperará três valores por 
parâmetro: diretório base para os arquivos JSON das tabelas, nome 
do arquivo da tabela e a lista inicial de valores da tabela. Seu 
retorno deve ser um valor do tipo Tabela construído a partir destes 
parâmetros. 


let inicializarTabela diretorioBase arquivo dadosIniciais = 


{ 
Arquivo = sprintf "%s%s" diretorioBase arquivo 
Dados = dadosIniciais 


} 


Apesar de esta função compilar normalmente, a concatenação de 
strings através da função sprintf e sua sintaxe para união de 

strings não são das mais legíveis. Para melhorar a legibilidade do 
código, podemos encapsular esta sintaxe em uma função própria. 


No capítulo sobre funções e operadores, foi visto que os operadores 
também são funções no F#. Isso quer dizer que podemos 
encapsular a concatenação realizada através do sprintf em um 
operador próprio para concatenação! Vamos criar um novo módulo 
chamado operadores , que vai conter todos os operadores que 
criarmos ao longo do desenvolvimento de nossa aplicação. 


Para representar a concatenação de duas strings, é comum o 
operador ser definido como ^. Este operador é definido 
nativamente na linguagem ocaim, mas pode ser adotado para nossa 
aplicação F# sem problemas. 


Para definir uma função de operador, é necessário informar o 
caractere do operador entre parênteses; fora isso, não há nenhuma 
outra diferença de uma função comum. Como nosso operador vai 
realizar a concatenação de duas strings, será necessário recebê-las 
através de parâmetro, conforme o código: 


module Operadores 


let (^) stringi string2 = 
sprintf "%s%s" stringl string? 


Com isso feito, podemos retornar ao módulo de persistência e 
alterar a função que inicializa uma tabela: 


let inicializarTabela diretorioBase arquivo dadosIniciais = 


{ 


Arquivo = diretorioBase ^ arquivo 
Dados = dadosIniciais 


} 


Lembre-se de utilizar o comando open para importar o módulo 
Operadores ; caso contrário, este operador não estará visível. Outro 
ponto importante é ordem dos arquivos no projeto, afinal, só é 
possível acessar os módulos que já foram definidos em momentos 
anteriores ao comando open. 


Neste ponto da implementação, os arquivos criados devem estar 
abaixo do arquivo AssemblyInfo e antes de todas as pastas do 
projeto. 


Com esta função retornando o valor da tabela construído, resta-nos 
implementar a gravação do arquivo físico. Para fazer isso, é 
necessária uma nova implementação utilizando os wrappers criados 
anteriormente. 


Para realizar a tarefa de gravar o arquivo JSON, será criada a 
função salvarTabela . Ela será usada posteriormente na inicialização 
das tabelas. 


Esta função precisa serializar os dados iniciais das tabelas e 
armazená-los em um arquivo físico. Tanto os dados quanto o 
diretório para armazenar o arquivo estão no tipo Tabela<'a>, então 
será preciso receber um valor deste tipo por parâmetro. 


let salvarTabela tabela = 
let dados = Json.serializar tabela.Dados 
Arquivo.salvar tabela.Arquivo dados 


Com a implementação feita, torna-se possível armazenar os dados 
de uma tabela em seu devido arquivo. Porém, podemos melhorar o 
código desta função um pouco mais. 


A primeira melhoria é retornarmos a tabela que foi salva. De modo 
geral, as funções que retornam o tipo unit podem quebrar a fluidez 


para composição de funções em seu programa. Tenha preferência 
por retornos significativos. 


A segunda melhoria é tornar o código mais idiomático. Sempre que 
a saída de uma função deve ser passada para a função seguinte, 
use o pipeline ou a composição. Neste caso, o pipeline se encaixa 
melhor. 


let salvarTabela tabela = 
Json.serializar tabela.Dados 
|> Arquivo.salvar tabela.Arquivo 
tabela 


Agora já temos a função para salvar o arquivo físico de uma tabela! 
Altere o código da função inicializarTabela para executar uma 
chamada a esta função. 


let inicializarTabela diretorioBase arquivo dadosIniciais = 
let tabela = { 
Arquivo = diretorioBase ^ arquivo 
Dados = dadosIniciais 


} 


salvarTabela tabela 


A inicialização do banco de dados a partir do zero está pronta, mas 
precisamos prever outra situação: quando a aplicação for 
inicializada, mas a tabela já foi criada em uma inicialização anterior. 
Neste caso, devemos apenas carregar os dados, sem salvar 
nenhum arquivo. 


Para carregar os dados de uma tabela, basta realizarmos o caminho 
inverso da função salvarTabela : é preciso abrir o arquivo salvo, 
desserializar os dados e construir o valor Tabela a partir disso, 
conforme o código a seguir. 


let carregarTabela<'e> arquivo = 
let dados = Arquivo.abrir arquivo 
|> Json.desserializar<'e list> 


Arquivo = arquivo 


Dados = dados 


} 


Note que, neste caso, além do diretório do arquivo, é necessário 
informar um tipo também. Isso ocorre por conta da necessidade de 
passar esta informação para o tipo para a função desserializar . 


Agora é preciso criar a função para construir o banco de dados, 
representado pelo tipo contexto . Esta função deve receber o 
diretório base de todas as tabelas e inicializá-las. 


let obterContexto diretorioBase = 
let contexto = { 
Inteiros = inicializarTabela 
diretorioBase 
"/Inteiros.json" 


[] 


Textos = inicializarTabela 
diretorioBase 
"/Textos.json" 


[] 
} 


contexto 


Para inicializarmos as tabelas corretamente, precisamos executar a 
função inicializarTabela apenas nas tabelas que ainda precisam ser 
criadas. Caso elas já existam, é necessário executar a função de 
carregamento. Como isso pode ser feito? 


A resposta é simples: através de uma função! Esta nova função será 
apenas um adaptador e, dependendo de uma determinada 
condição, a tabela será carregada ou criada. 


Como será preciso criar um adaptador, é bastante vantajoso que os 
parâmetros das funções que serão escolhidas nele sejam 
semelhantes. Note que a função responsável por carregar uma 
tabela espera por parâmetro um caminho de arquivo completo, 


incluindo o nome do arquivo; enquanto a função de inicialização 
espera estas informações separadamente. 


Vamos alterar a função de inicialização para que ela também espere 
um único parâmetro, contendo o caminho completo do arquivo. 
Depois disso, crie a função responsável por criar ou carregar a 
tabela. 


Esta função será a responsável por montar o caminho completo do 

arquivo. Logo, ela deve receber separadamente o diretório base e o 
caminho do arquivo, da mesma forma que a função de inicialização 
recebia. 


Além disso, esta função deve receber os dados iniciais que serão 
usados para os casos em que a tabela será inicializada. Ela 
executará dois passos principais: montar o caminho completo do 
arquivo e selecionar qual das funções será executada. 


Para solucionar a primeira tarefa, é simples. Basta usar o operador 
como já fizemos anteriormente. 


let criarTabelaParaAplicacao<'e> 
diretorioBase arquivo dadosIniciais = 


let arquivoCompleto = diretorioBase ^ arquivo 


Mas para selecionar qual função será executada, precisamos de 
uma condição que determine isso. Esta condição será a existência 
do arquivo JSON que armazena os dados da tabela. 


e Quando o arquivo não existe: a tabela nunca foi criada e 
precisará ser inicializada; 

e Quando o arquivo existe: a tabela já foi criada e só precisará 
ser carregada. 


Para verificar isso, utilize a função existe, criada anteriormente no 
módulo arquivo , conforme o código: 


let criarTabelaParaAplicacao<'e> 
diretorioBase arquivo dadosIniciais = 


let arquivoCompleto = diretorioBase ^ arquivo 

let arquivoExiste = Arquivo.existe arquivoCompleto 

match arquivoExiste with 

| true -> carregarTabela<'e> arquivoCompleto 

| false -> inicializarTabela arquivoCompleto dadosIniciais 


Agora vamos voltar à função obtercontexto e alterar as cnamadas da 
função inicializarTabela para a nova função. 


let obterContexto diretorioBase = 
{ 
Inteiros = criarTabelaParaAplicacao 
diretorioBase 
"/Inteiros.json" 


[] 


Textos = criarTabelaParaAplicacao 
diretorioBase 
"/Textos.json" 
[] 
} 


Perceba que, no local do parâmetro dadosIniciais , estamos 
informando os caracteres []. Esta é a representação de uma lista 
vazia. Neste primeiro momento, vamos preencher os dados iniciais 
com alguns valores simples, apenas para fins de testes. 


let obterContexto diretorioBase = 
{ 
Inteiros = criarTabelaParaAplicacao 
diretorioBase 
"/Inteiros.json" 
[1 ; 2 ; 3] 


Textos = criarTabelaParaAplicacao 
diretorioBase 
"/Textos.json" 


[ "teste" ; "texto"] 
} 


Vamos fazer com que nossa aplicação web inicialize este banco de 
dados. Para isso, abra o arquivo Global.asax.fs . Ele possui diversos 
métodos para a inicialização e configuração da aplicação web, mas 
não se assuste, será um ajuste bem simples! 


O último método deste arquivo é o método Application_start() . Ele é 
responsável por realizar todas as inicializações da aplicação. Acima 
deste método, vamos criar o método InicializarBancoDados que 
apenas chamará a função obterContexto do módulo persistencia, 
conforme o código: 


static member InicializarBancoDados(diretorioBase) = 
Persistencia.obterContexto(diretorioBase) 
|> ignore 


Note que também é necessário utilizar a função ignore, e isso deve 
ser feito porque não precisamos retornar dados neste método. Por 

fim, altere o método application start() para fazer uma chamada a 

este método: 


member this.Application Start() = 


Global. InicializarBancoDados( 
@"Insira o diretório das tabelas aqui”) 


Insira a chamada ao método após todas as chamadas já existentes, 
e informe por parâmetro um diretório válido. Agora, basta executar a 
aplicação e você verá que os arquivos já foram criados com os 
valores iniciais informados, conforme ilustra a figura a seguir. 


A^ 


E Nome Tipo Tamanho 
v] SJ Inteiros.json JSON File 1 KB 
ISJ Textosjson JSON File 1 KB 


rquivo Editar Fogfatar Exibir Ajuda 


[1,2,3] 








E Textos.json - Bloco de notas = O 


Arquivo Editar Formatar Exibir Ajuda 
["teste","texto"] 





Figura 7.1: Arquivos JSON das tabelas 


Agora, vamos voltar à função obtercontexto para alterar a forma 
como inicializamos a lista de valores. Existem formas diferentes de 
definir a criação de uma lista em F#: podemos criar uma lista vazia, 
definir os elementos de forma fixa, definir uma variação de valores, 
e até gerar um laço de repetição na própria inicialização da lista. 


Inicialização de listas 


Vamos alterar a criação da tabela Inteiros em vez de criarmos os 
valores na passagem de parâmetro. Já teremos os valores 
inicializados no módulo e vamos apenas acessá-los, conforme o 
código: 
let inteirosIniciais = 

[1; 2; 3] 


let obterContexto diretorioBase = 


Inteiros = criarTabelaParaAplicacao 
diretorioBase 
"/Inteiros.json" 
inteirosIniciais 


Agora vamos alterar o valor inteiroIniciais para explorar as 
possibilidades. Neste primeiro exemplo, a lista foi inicializada com 
apenas 3 valores, mas e se precisássemos de 100? 


Para a geração de valores em uma determinada variação, é 
possível usar o símbolo .. (dois pontos). Através dele, podemos 
criar uma lista de valores definindo um valor inicial e um valor final, 
conforme o código: 


let inteirosIniciais = 
[1..100] 


Apagando o arquivo da tabela e reinicializando a aplicação, 
podemos visualizar os dados gerados. 








C] Nome o Tipo Tamanho 
é] Inteiros.json JSON File 1 KB 
éJ Textosjson JSON File 1KB 

J Inteiros.json - Bloco dé notas — 0O 
Arquivo Editar Format Exibir Ajuda 
[1,2,3,4,5,6,7,98,9,10,11,12,14,14,15,16,17,18,19,20,21,22,25,24,25 
,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 
,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69 
,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91 


,92,93,94,95,96,97,98,99,100]| 


Figura 7.2: Arquivos JSON das tabelas 


Além disso, também é possível definir um incremento na geração de 
um conjunto de valores. No exemplo anterior, não foi especificado, 


então assume-se por padrão que o incremento será de um em um. 


Para explicitar um incremento, devemos utilizar o mesmo símbolo 
(.. ), mas desta vez ele será usado duas vezes e estará entre os 
três números, que representam respectivamente: valor inicial, 
incremento e valor final. 


let inteirosIniciais = 
[9..5..100] 


No código anterior, é gerada uma lista com valores de 0 até 100, 
mas com uma taxa de incremento de 5. Ou seja, serão gerados 
apenas números múltiplos de cinco: 0, 5, 10, 15 e assim por diante. 


A última forma de inicialização é usada para casos mais complexos. 
Por meio dela, é possível gerar valores através de uma lista base. 
Devido à sua estrutura mais poderosa, ela é capaz de gerar todos 
os exemplos anteriores. Esta forma de inicialização é chamada de 
list comprehension. 


Este tipo de inicialização utiliza um laço de repetição dentro da 
inicialização da lista, ou seja, haverá um laço dentro dos colchetes. 
Nas list comprehensions, existem alguns elementos básicos além do 
laço de repetição: 


e Uma coleção base sobre a qual o laço de repetição é 
executado; 

e Um identificador para cada elemento percorrido na coleção 
base; 

e Uma função de aplicação responsável por gerar os elementos 
da lista. 


Primeiro vamos criar uma sequência simples de valores de 1 até 
100, em que 1..100 será a coleção base, o identificador valor será 
criado para os elementos desta coleção e a função vai apenas 
retornar todos os números desta coleção. 


let inteirosIniciais = 


[ 


for valor in 1..100 do 
yield valor 


] 


Note que a palavra reservada yield é usada para indicar um 
elemento que deve ser retornado para a lista resultante. Além disso, 
a palavra reservada do, utilizada para construtores, também é 
usada no laço de repetição desta inicialização. 


Agora com uma pequena alteração, é possível fazermos com que a 
coleção possua um padrão mais complexo. A inicialização 
continuará percorrendo os números de um até cem, mas desta vez 
a coleção de inteiros deverá conter apenas os números pares 
seguidos de seus valores elevados ao cubo, conforme o exemplo: 2, 
8, 4, 64, 6, 216 e assim por diante. 


Nesta nova inicialização, será necessário verificar uma condição, já 
que são permitidos apenas números pares. Também será 
necessário retornar mais de um valor em cada passada do laço de 
repetição, pois é necessário retornar o número e seu valor ao cubo. 


let inteirosIniciais = 


[ 
for valor in 1..100 do 


if valor % 2 = Q then 
yield valor 
yield valor * valor * valor 


] 


Com isso, foram exemplificadas as diferentes formas de 
inicialização de uma lista. Podemos desfazer a alteração no arquivo 
Global.asax.fs , já que elas foram feitas apenas para podermos 
verificar a criação das tabelas, e não serão mais necessárias. 


Após isso, vamos criar uma configuração na aplicação web para 
indicar o diretório base em que os arquivos das tabelas serão 
salvos. Esta alteração torna possível modificar o diretório das 
tabelas sem a necessidade de recompilar o código da aplicação. 


Para criar uma configuração, acesse o arquivo web.config . Este 
arquivo é um XML que contém diversas configurações da aplicação 
separadas em seções. A configuração para indicar o diretório das 
tabelas será inserida na seção appsettings , conforme a figura: 


<appSettings> 


<add key="webpages:Version" value="3.0.0.0" /> 

<add key="webpages: Enabled" value="false" /> 

<add key="ClientValidationEnabled”" value="true” /> 

<add key="UnobtrusiveJavaScriptEnabled" value="true” /> 


<add 





</appSettings> 


Figura 7.3: Arquivos Web.config 


Agora que a configuração já está criada no arquivo, é preciso fazer 
com que ela se torne acessível via código. Para fins de organização, 
é recomendado separar as configurações em um módulo específico. 
Este módulo deverá ser incluído antes do módulo dos operadores, 
desta forma, toda a aplicação terá acesso às configurações 
expostas nele. 


No módulo configuracoes , é preciso utilizar a classe 
ConfigurationManager localizada no namespace sSystem.Configuration. 
Por meio dela, é possível acessarmos a configuração do arquivo 


web.config . 


O namespace de configuração não é adicionado automaticamente 
na criação do projeto, então é necessário incluir a referência para 
este assembly manualmente. Para isso, pressione o botão direito do 
mouse sobre o projeto e selecione a opção add Reference... . Depois, 


selecione a aba Framework e, por fim, o assembly em questão, 
conforme a figura: 

















Solution Explorer 4 Assemblies Targeting: .NET Framework 4.5 
m.e J 
A | 0758 | # = Framework O) Name Version F 
Search Solution Explorer (Ctrl+ç) Extensions System.Configuration 4.0.0.0 
System.Configuration.Install 4.0.0.0 
a as : ioch Recent 
R] Solution 'FSharpWeb' (1 project) System.Core 4.0.0.0 
ajf 
4 sE] FSharpWeb b Projects System.Data 4.0.0.0 
b DU References (1) System.Data.DataSetExtensions 4.0.0.0 
a F* Assemblylnfo.fs b COM System.Data.Entity 4.0.0.0 
a F* Configuracoes.fs System.Data.Entity.Design 4.0.0.0 





Figura 7.4: Adicionando o assembly System.Configuration 


Após incluir a referência para este assembly, já é possível importá-lo 
em um módulo através do comando open normalmente. 


module Configuracoes 
open System.Configuration 


let obterConfiguracao (nomeConfiguracao:string) = 
ConfigurationManager. AppSettings.Get (nomeConfiguracao) 


Depois disso, crie o valor que armazena o diretório das tabelas: 


let diretorioTabelas = obterConfiguracao "DiretorioTabelas" 


Perceba que o nome da configuração informada por parâmetro 
precisa ser o mesmo nome informado no atributo key do arquivo de 
configuração. 


Agora a configuração que indica o diretório das tabelas da aplicação 
já está acessível via código. Esta configuração torna desnecessário 
o parâmetro diretório base na função que obtém o banco de dados 
da aplicação. 


Vamos alterar esta função do módulo de persistência para que ela 
obtenha a informação do diretório a partir das configurações da 
aplicação. 


let obterContexto() = 
let diretorioBase = Configuracoes.diretorioTabelas 


{ 


Inteiros = criarTabelaParaAplicacao 
diretorioBase 
"/Inteiros.json" 
inteirosIniciais 


Textos = criarTabelaParaAplicacao 
diretorioBase 
"/Textos.json" 
[ "teste" ; "texto"] 


} 


Neste ponto, com uma alteração bastante pequena no controller 
ValuesController , já é possível visualizar a listagem dos valores 
salvos nas tabelas da aplicação. 


Tudo que precisamos fazer é alterar o método cet para retornar os 
dados da tabela. Para isso, basta obter o contexto através do 
módulo de persistência e acessar os dados da tabela. 


type ValuesController() = 
inherit ApiController() 


member this.Get() = 
let contexto = Persistencia.obterContexto() 
contexto. Inteiros .Dados 


Assim, já é possível visualizar os resultados: 


Œ | O localhost:48213/api/values 


[2,8,4,64,6,216,8,512,10,1000,12,1728,14,2744,16,4096,18,5832,20,8000,22,10648,24, 
4,46,97336,48,110592,50,125000,52,140608,54,157464,56,175616,58,195112,60,216000,€ 
2000,82,551368,84,592704,86,636056,88,681472,90,729000,92,778688,94,830584,96,884;, 


Figura 7.5: Listagem de clientes 


Como o exemplo anterior já ilustrou, a infraestrutura do banco de 
dados está pronta. Mas os dados armazenados ainda não se 
parecem com as informações propostas para nossa aplicação no 
capítulo passado. 


Para fazer com que a aplicação passe a armazenar os dados reais, 
será criada a camada de domínio, na qual é definida a modelagem 
dos dados gerenciados pela aplicação. 


7.2 Criação do domínio 


Como já citado anteriormente, a aplicação que está sendo 
desenvolvida lidará com a gestão compras de produtos. Para 
cumprir com estes requisitos, será necessário criar as tabelas para 
cadastrar: os clientes, os produtos e as compras. 


Para que as tabelas existam no módulo de persistência, é 
necessário que antes sejam criados os tipos que representem estes 
dados. A implementação dos três novos tipos deve ser feita no 
módulo Dominio . Primeiro crie o tipo cliente, que deve conter 
informações a respeito dos clientes da loja. 


module Dominio 


type Cliente = ( 
Id: int 
Nome: string 
Sobrenome: string 
CPF: string 
Idade: int 
Email: string 
Telefone: string 
Endereco: string 


} 


Depois disso, crie o tipo Produto , conforme o código: 


type Produto = ( 
Id: int 
Descricao: string 
Detalhes: string 
Preco: double 


} 


Por fim, vamos definir o tipo que representa uma compra. Este tipo é 
um pouco mais complexo do que os anteriores. Isso porque a 
representação de uma compra precisa relacionar: o cliente que fez a 
compra, o valor total da compra e os produtos comprados. 


O campo para representar o valor é o caso mais simples, basta 
adicionarmos um campo do tipo double normalmente. No caso do 
cliente, é um pouco mais complicado, pois não vamos armazenar 
um valor do tipo cliente , já que isso geraria inconsistência dos 
dados. 


Imagine que o cliente de 1d 1 é associado a uma compra e todas as 
suas informações são copiadas para esta tabela. Se em um 
momento futuro os dados deste cliente fossem alterados na tabela 
de clientes, esta alteração não teria nenhum efeito na tabela de 
compras e o cliente associado a esta mesma compra teria 
informações que não são mais verdadeiras. 


Para estes casos, é recomendado armazenar apenas o 1d do 
cliente. Desta forma, é possível fazer a relação dos dados 
posteriormente, sempre obtendo os dados da tabela de clientes. 


type Compra = ( 
Id: int 
ClienteId: int 
ValorTotal: double 


} 


Para o caso dos produtos, é ainda mais complicado. Assim como no 
caso do cliente, é preciso armazenar apenas o identificador do 
produto. No entanto, existe a possibilidade de um cliente comprar 
mais de uma unidade do mesmo produto. 


Isso indica que somente o identificador não é o bastante para 
relacionarmos um produto com uma compra. Para solucionar este 
problema, será criado um quarto tipo: Itemcompra, que representa a 
relação entre um produto e uma compra. 


type ItemCompra = { 
ProdutoId: int 
Quantidade: double 
ValorTotal: double 


} 


E como um item de compra não existe fora de uma compra, 
podemos associá-lo diretamente na entidade de compras. 


type Compra = { 
Id: int 
ClienteId: int 
Itens: ItemCompra list 
ValorTotal: double 


} 


Com esta implementação, já é possível importar o módulo de 
domínio pelo comando open e alterar as tabelas presentes no tipo 
Contexto para ajustá-las aos dados modelados. 


Lembre-se de que o arquivo do módulo de domínio precisar ser 
ordenado para ficar antes do arquivo do módulo de persistência. 


type Contexto = { 
Clientes: Tabela<Cliente> 
Produtos: Tabela<Produto> 
Compras: Tabela<Compra> 


} 


A alteração do tipo Contexto vai causar diversos erros de 
compilação na aplicação. Para corrigi-los, precisaremos remover as 
referências aos valores Inteiros € Textos , usados anteriormente. 


Ainda no módulo de persistência, altere o valor inteirosIniciais para 
clientesIniciais € faça com que este valor possua uma lista de 


clientes em vez de valores inteiros, conforme o código: 


let clientesIniciais= 


[ 


{ 

Id= 1 

Idade = 23 

Nome = "Joãozinho" 

Sobrenome = "Silva" 

CPF = "021.231.231-21" 

Email = "joaozinho@teste.com" 

Telefone = "99887766" 

Endereco = "Rua do jodozinho”" 
}; 
{ 

Id = 2 

Idade = 21 

Nome = "Mariazinha" 

Sobrenome = "Souza" 

CPF = "123.321.123-21" 

Email = "mariazinha@teste.com" 

Telefone = "99881122" 

Endereco = “Rua da mariazinha" 
} 


] 


Também será necessário ajustar a função obterContexto para que 
ela crie um contexto com as novas tabelas. Por enquanto, as 
tabelas de produtos e compras serão inicializadas com listas vazias, 
e a tabela de clientes será inicializada com o valor clientesIniciais . 


let obterContexto() = 
let diretorioBase = Configuracoes.diretorioTabelas 
{ 
Clientes = criarTabelaParaAplicacao 
diretorioBase 
"/Clientes.json" 
clientesIniciais 


Produtos = criarTabelaParaAplicacao 
diretorioBase 


"/Produtos.json" 


[] 


Compras = criarTabelaParaAplicacao 
diretorioBase 
"/Compras.json" 


[] 
} 


O último ajuste para tornar a aplicação compilável novamente é a 
alteração do método cet do controller valuesController , que 
atualmente está obtendo os dados da tabela Inteiros . Para ajustar 
este comportamento, basta retornar os dados da tabela de clientes: 


member this.Get() = 
Persistencia.obterContexto().Clientes.Dados 


Com esta alteração, já é possível visualizar a lista de clientes no 
banco de dados: 


Œ | © localhost 48213/api/values 


[("id":1,"nome":"Joãozinho","sobrenome":"Silva","cpf":"021.231.231-21","idade":23,"email":"5oaozinhoat 
("id":2,"nome":"Mariazinha","sobrenome":"Souza","cpf":"123.321.123-21","idade":21,"email":"mariazinhag 


Figura 7.6: Listagem de clientes 


Assim, a aplicação está compilando novamente e o banco de dados 
está funcionando corretamente. Chegou a hora de trabalharmos 
com os dados! 


Serão criados serviços individuais para cada uma das entidades do 
sistema: clientes, produtos e compras. Isso é necessário porque as 
regras que se aplicam a cada uma das entidades são diferentes. 


A implementação destes serviços estará em um namespace chamado 
Servicos €, dentro deste namespace, todos os serviços das 
entidades do sistema serão criados. Vamos começar com o módulo 
de serviço para clientes. 


namespace Servicos 


open Dominio 
open Persistencia 


module ClienteServico = 


As primeiras funções básicas que serão criadas neste módulo são 
as funções de inserção e exclusão. No entanto, estas operações 
envolvem alterar a quantidade de elementos de uma lista e, com 
isso, alterar a lista em si. 


Mas como já foi citado anteriormente, assim como os valores 
simples, as listas também são imutáveis. Para prosseguirmos com o 
desenvolvimento da aplicação, é fundamental a compreensão de 
como as listas imutáveis funcionam. 


7.3 Trabalhando com listas imutáveis 


As formas de inicialização de uma lista foram vistas anteriormente 
neste capítulo, o operador .. será usado para criar uma lista com 
valores inteiros de um até dez. 


let lista = [1..10] 


Podemos acessar as propriedades e funções da estrutura básica da 
lista, assim como fazemos em records ou classes. No conjunto de 
propriedades disponíveis em uma lista, é possível visualizar as 
propriedades Head e Tail, conforme ilustra a imagem a seguir. 


let lista = [1..10] 
lista. 


di a a a 


© GetHashCode 
© Getlype 


& IsEmpty 
# Item 
Æ Length 


© ToString | 








Figura 7.7: Propriedades Head e Tail 


Estas duas propriedades são muito importantes para se trabalhar 
com listas em FÉ. A propriedade Head representa o primeiro 
elemento da lista e a Tail representa uma sublista que contém 
todos os elementos da lista, exceto o primeiro elemento ( Head ). 


Outro ponto importante já citado sobre as listas do F# é a sua 
natureza imutável. Portanto, não é possível alterar a estrutura 
básica dela, assim como ocorre nos valores. 


let lista = [1..10] 
lista <- 





This value is not mutable gs 


Figura 7.8: Estrutura imutável de uma lista 


O código da imagem anterior gera um erro, pois estamos tentando 
alterar o estado de um valor imutável, o que não é permitido. 


Assim como nos valores simples, é possível declarar uma lista 
mutável através da palavra reservada mutable . 


let mutable listaMutavel = [1..10] 
listaMutavel <- [2..5] 


Ao realizar uma alteração de estrutura em um valor mutável, o 
código funciona perfeitamente. Mas lembre-se de que é fortemente 
recomendado manter a imutabilidade. 


A imutabilidade das listas é um pouco diferente da imutabilidade dos 
valores, pois além do comportamento imutável da estrutura da lista, 
os elementos que a compõem também são imutáveis. Ou seja, a 
alteração de um elemento da lista também é restrita, assim como a 
alteração da estrutura como um todo. 


Para acessar um elemento da lista, utilize a sintaxe: nome da lista. 
[posicao] , conforme o exemplo: 


let lista = [1..10] 
let primeiroValorDaLista = lista.[0] 


Perceba que é perfeitamente possível obter um valor de um 
elemento em uma posição específica da lista. Mas caso seja 
realizada uma tentativa de alteração do valor em uma determinada 
posição, o compilador acusará um erro: 


let lista = [1..10] 
let primeiroValorDaLista = lista.[0] 


lista. [0] <- 2 


Property 'Item' cannot be set sai 


Figura 7.9: Elemento imutável em uma lista 


O erro que ocorre agora é diferente do erro ocorrido ao alterar a 
estrutura inteira da lista, afinal, esta é a restrição de imutabilidade de 
um elemento na lista e não da estrutura da lista. Esta restrição de 
imutabilidade dos elementos se mantém mesmo em listas 
declaradas como tipos mutáveis, pois a alteração de mutabilidade 
afeta apenas a estrutura básica e não seus elementos. 


let mutable listaMutavel = [1..10] 
listaMutavel <- [2..5] 


listaMutavel.[0] <- 3 


Property 'Item' cannot be set «sip 


Figura 7.10: Elemento imutável em uma lista mutável 


Um último comportamento possível ocorre em listas que armazenam 
records com valores mutáveis. Neste caso, é possível realizar a 
alteração dos valores mutáveis do record, mesmo que a estrutura 
da lista e seus elementos permaneçam imutáveis. 


let lista = [(Valor = 1}; (Valor = 23] 
lista.[0].Valor <- 2 


lista. [6] <- (Valor = 3) 


Property 'Item' cannot be set ss 


lista <- Valor = 2}; {Valor = 1 


This value is not mutable si- 


Figura 7.11: Elemento com valor mutável em uma lista imutável 


Por conta do comportamento imutável desta estrutura, não há 
métodos para a inserção e exclusão de elementos. A abordagem 
que deve ser usada é a criação de novas listas a partir das listas 
existentes e, felizmente, existem diversas operações disponíveis em 
F# para facilitar isto. 


Inserção de elementos 


Vamos voltar para o módulo clienteservico criado anteriormente e 
adicionar uma função para realizar a inclusão de um cliente. O 
cliente que será adicionado deve ser recebido por parâmetro. Após 
isso, a função deve unir este cliente à lista de clientes já salva no 


banco e, por fim, atualizar os dados da tabela clientes através da 
função do módulo de persistência. 


Para poder unir o cliente com os clientes já salvos no banco, será 
necessário obter a lista de clientes salvos. Para isso, vamos criar 
uma pequena função: 


let obterClientes() = 
obterContexto().Clientes 


Com esta função, é possível obter a tabela de clientes em qualquer 
função deste módulo. Agora já podemos iniciar a função para 
inclusão de um cliente, conforme o código: 


let incluirCliente cliente = 
let tabela = obterClientes() 
salvarTabela tabela 


A implementação anterior define o corpo principal da função, mas 
ainda é necessário unir o cliente do parâmetro com a lista de 
clientes. Para realizar esta operação, será utilizado o operador :: 
Este gera uma lista a partir de um único elemento e de uma lista 
base. 


Esta operação faz com que o elemento informado antes do operador 
se torne a propriedade Head da lista resultante, e a lista base se 
torne a propriedade Tail da lista resultante. A sintaxe para a 
utilização deste operador segue o formato: elemento: :lista base. 
Vamos alterar a função para inclusão de clientes, agora gerando 
uma nova lista através deste operador. 


let incluirCliente cliente = 
let tabela = obterClientes() 
let dados = cliente :: tabela.Dados 
salvarTabela (tabela with Dados = dados; 


Com isso, já é possível realizar a inserção de um cliente em nosso 
banco de dados. Entretanto, para isso, precisamos criar um acesso 
para esta função a partir da aplicação web. 


O ponto de acesso criado será um controller para expor os serviços 
que manipulam as informações a respeito dos clientes, e vamos 
chamá-lo de clientecontroller . Este controller precisa ser criado na 
mesma pasta onde está o arquivo do valuescontroller que alteramos 
anteriormente. 


Lembre-se de herdar a classe base apicontroller . Para isso, é 
preciso utilizar a sintaxe orientada a objeto para a criação do 
controller. 


namespace FSharpWeb.Controllers 


open System 
open System.Net.Http 
open System.Web.Http 


type ClienteController() = 
inherit ApiController() 


Agora que já temos o controller, precisamos de uma action que 
execute a ação para incluir um cliente. 


ACTION 


O termo action é usado para descrever os métodos de um 
controller, tanto MVC quanto Web API. Este termo também é 


utilizado em C# para representar uma função anônima que não 
possui retorno, mas é apenas coincidência de nomenclatura. 
Estas duas definições são diferentes, uma action de um 
controller pode retornar dados normalmente. 





type ClienteController() = 
inherit ApiController() 


member this.Incluir(cliente) = 
ClienteServico.incluirCliente cliente 


Vamos criar também uma função que obtenha todos os clientes 
salvos no banco de dados, conforme o código: 


member this.ObterTodos() = 
Persistencia.obterContexto().Clientes.Dados 


Notou alguma coisa de diferente nestes métodos em relação aos 
métodos do controller valuescontroller ? Não estamos usando o 
nome dos métodos como o mesmo nome do método HTTP; isso 
porque faremos mais métodos do mesmo tipo neste controller. 


Para que o sistema de rotas entenda e torne acessível os métodos 
através de requisições HTTP, é preciso realizar uma pequena 
alteração na configuração de rotas. Esta alteração fará com que o 
mecanismo de rotas leve em consideração o nome do método, que 
também será informado na URL. 


A alteração será no método Registernebapi do arquivo 
Global.asax.fs . Este método define como a URL dos serviços é 
construída. Altere os parâmetros da chamada ao método 
MapHttpRoute para que ele passe a também considerar o nome do 
método do controller. 


static member RegisterWebApi(config: HttpConfiguration) = 


config.Routes.MapHttpRoute( 
"DefaultApi", 
"api/(controller)/(action)/(id)", 


{ 
controller = "{controller}" 
action = "{action}" 
id= UrlParameter.Optional 

} 


) |> ignore 


Note que agora informamos o campo action na construção da URL 
dos serviços. 


A última coisa que precisamos fazer no controller de clientes é 
adicionarmos a notação para indicar qual método HTTP é usado em 
cada action do controller. Esta anotação deve ser inserida na linha 
anterior à action, seguindo a sintaxe: [<HttpMETODO>] . 


type ClienteController() = 
inherit ApiController() 


[<HttpGet>] 


member this.ObterTodos() = 


[<HttpPost>] 
member this. Incluir(cliente) = 


Com isso, já podemos acessar as duas actions através da extensão 
do navegador, conforme a figura: 


€* HTTP request Æ Headers 


http://localhost:48213/api/cliente/ObterTodos 
GET v 


JSON (application/json) v 


Send request A Reset fields 'O 


® Response £ Raw response EE Response headers D History 
[ 
{ 

"id": 1 2 
"nome": "Joãozinho", 
"Sobrenome": "Silva", 
"cpf": "021.231.231-21", 
idade”: 23, 
"email": "joaozinhogteste.com", 
"telefone": "99887766", 
"endereco": "Rua do joáozinho" 


Figura 7.12: ASP.NET Web API - ClienteController 


Com a função de inclusão pronta, já podemos iniciar a 
implementação da função de exclusão. 


Exclusão de elementos 


A exclusão de um elemento em uma lista é um pouco mais 
complicada que a inclusão, afinal, não há um operador que resolva 
este problema. 


Vamos criar a função excluircliente para realizar este trabalho. A 
estrutura básica desta função é bastante similar à função de 
inclusão. Porém, neste caso, é necessário esperar por parâmetro 
apenas o identificador ( 1d ) do cliente que será excluído. 


let excluirCliente id = 
let tabela = obterClientes() 
let dados = tabela.Dados 
sSalvarTabela (tabela with Dados = dados} 


Tudo que precisamos fazer agora é alterar o valor dados para que 
ele receba a lista de dados sem o cliente que tenha o id informado 
por parâmetro. Uma das formas de criar esta nova lista é através do 
list comprehension, visto anteriormente. 


Neste caso, o list comprehension deve usar como base a lista com 
todos os clientes, conforme o código: 


let dados = [ 
for cliente in tabela.Dados do 
yield cliente 
] 


Agora precisamos incorporar neste laço de repetição uma 
verificação para não retornar o cliente caso o valor 1d dele seja o 
igual ao valor do id informado no parâmetro. Para esta verificação, 
utilize um pattern matching que verifique o 1d: 


let dados = [ 
for cliente in tabela.Dados do 
match cliente with 
| cliente when cliente.Id = id -> ignore() 
| cliente -> yield cliente 


] 


No código anterior, é verificado se o 1d do cliente é igual ao do 
valor passado por parâmetro. Neste caso, o código não fará nada 
( ignore ) e, somente quando esta condição for falsa, o cliente é 
retornado para a nova lista. 


Este código retorna o resultado correto, mas esta não é uma boa 
prática aos olhos do paradigma funcional, pois o código imperativo é 
menos otimizado para este tipo de compilação. 


7.4 Percorra listas utilizando recursividade 


Uma forma mais eficiente de percorrer lista em F# é usando 
recursividade em vez de laços de repetição. Nesta técnica, é comum 
utilizarmos as propriedades Head e Tail da lista; estas duas 
propriedades são importantes por conta disso. 


RECURSIVIDADE 


Funções recursivas são funções que podem realizar uma 


chamada de si mesmo, e geralmente são usadas para resolver 
problemas iterativos, que comumente também podem ser 
solucionados através de laços de repetição. 





A função recursiva que percorre uma lista em busca de algum 
elemento sempre deve possuir um critério de busca; no nosso caso, 
o critério é o 1d do cliente. A cada chamada da função, ela deve 
avaliar se o critério de busca corresponde ao elemento da 
propriedade Head, OU Seja, a verificação é feita em um elemento por 
vez. 


Caso o valor da propriedade Head não corresponda ao critério de 
busca, a função deve chamar a si mesma, mas desta vez passando 
como parâmetro a propriedade Tail em vez da lista completa que 
está sendo percorrida. Dessa forma, cada vez que a função é 
chamada recursivamente, o valor da propriedade Head será 
alterado. 


Na função que será implementada, é preciso informar dois 
parâmetros: o 1d do cliente que está sendo buscado para o critério 


de busca; e a lista de clientes. Além disso, utilize a palavra 
reservada rec antes do nome da função para informar ao 
compilador que esta função é recursiva. 


let rec encontrarClienteComId id (lista:Cliente list) = 
match lista.Head with 
| cliente when cliente.Id = id -> cliente 
| _ -> encontrarClienteComId id lista.Tail 


Com o exemplo anterior, é possível ter uma noção de como criar 
uma função recursiva, mas a função ainda não está pronta. Note, 
por exemplo, que não estamos lidando com a possibilidade de uma 
lista vazia. 


Para lidar com mais possibilidades, é necessário alterar o pattern 
matching para que ele realize a comparação sobre a lista completa, 
e não somente com o elemento Head . Para fazer uma comparação 
entre casos com uma lista completa, a linguagem disponibiliza 
alguns operadores: 


e [] -> — caso para listas vazias; 

e elemento :: lista -> — caso em que há pelo menos um 
elemento na lista; 

e elementoi :: elemento? :: lista -> — Caso em que há pelo 
menos dois elementos na lista. 


Perceba que, no pattern matching, o operador :: funciona como um 
separador de elementos. Logo, é possível validar um caso e extrair 
elementos simultaneamente. 


Como mostrado no terceiro item, é possível separar mais de um 
elemento em uma lista com este operador. No entanto, o caso mais 
comum é a separação entre O Head € O Tail da lista. 


Vamos ajustar o pattern matching da função criada anteriormente, 
agora testando a lista completa, conforme código a seguir. 


let rec encontrarClienteComId id (lista:Cliente list) = 
match lista with 


| head::tail when head.Id = id -> head 
| head: :tail -> encontrarClienteComId id tail 


Com a função escrita desta forma, o compilar acusará um problema 
no pattern matching, porque ainda não estamos lidando com o caso 
de a lista estar vazia. Este caso pode acontecer em duas situações: 


1. Uma chamada externa desta função informou uma lista vazia 
como parâmetro; 
2. Não existir um cliente com o īa informado no parâmetro. 


A segunda opção vai ocorrer porque sempre que o cliente da 
propriedade Head não é o cliente com o 1d informado, é feita a 
chamada recursiva passando como parâmetro a cauda da lista 
(Tail) a cada iteração. No momento de percorrer pelo último 
elemento da lista, a cauda estará vazia. 


O que deve ser feito no caso de não encontrarmos nenhum cliente 
para retornar? Isso indica que há a possibilidade de não 
retornarmos um cliente e, como visto anteriormente, os casos em 
que não há garantia do retorno, é recomendável utilizar o tipo 
option. 


Então, a função deve retornar none, que representa nenhum valor. E 
caso encontrarmos o elemento, deve ser retornado o valor some 
contendo o cliente encontrado. 


let rec encontrarClienteComId id (lista:Cliente list) = 
match lista with 
| head::tail when head.Id = id -> Some head 
| head: :tail -> encontrarClienteComId id tail 
| [] -> None 


Agora já estamos bastante próximos do resultado esperado, mas 
ainda não chegamos lá. Esta função está percorrendo a lista de 
clientes e retornando o cliente de acordo com o Id informado no 
parâmetro. No entanto, não precisamos deste cliente, e sim de uma 
lista contendo todos os elementos exceto ele. 


Mesmo com a alteração do retorno, o percurso realizado através da 
lista será o mesmo. Mas agora é necessário armazenar os 
elementos já percorridos da lista, além dos elementos que faltam 
percorrer. Isso porque o retorno desta função deve ser uma lista 
sem o cliente e com o 1d informado, mas contendo todos os que 
ainda não foram percorridos e os já percorridos. 


Vamos renomear a função para excluirclienteComid e adicionar um 
parâmetro que será utilizado para armazenar os elementos já 
percorridos da lista. Ao fazer isso, O caso | head::tail -> vai acusar 
um erro, porque é necessário informar o parâmetro da lista de 
elementos já percorridos na chamada desta função. 


Neste caso do pattern matching, a lista de elementos já percorridos 
é o resultado do elemento head com a lista de clientes já percorridos 
até o momento. 


let rec excluirClienteComId id jaPercorridos (lista:Cliente list) = 
match lista with 
| head::tail when head.Id = id -> Some head 
| head: :tail -> excluirClienteComId id (head::jaPercorridos) tail 
| [] -> None 


Para finalizar esta função, é preciso realizar ajustes nos dois casos 
em que os dados são retornados. No caso onde não é encontrado o 
elemento com o Id informado, é necessário retornar a lista 
completa, que estará armazenada no parâmetro japercorridos . 


No caso onde o cliente é encontrado, precisamos retornar a lista dos 
elementos já percorridos ( jaPercorridos ) somada com a lista dos 
elementos que ainda não foram percorridos ( tail ). Para somar as 
duas listas, utilize o operador @ , conforme o código: 


let rec excluirClienteComId id jaPercorridos (lista:Cliente list) = 
match lista with 
| head: :tail when head.Id = id -> jaPercorridos @ tail 
| head: :tail -> excluirClienteComId id (head::jaPercorridos) tail 
| [] -> jaPercorridos 


O funcionamento desta função recursiva é ilustrado na imagem a 
seguir. Para fins de exemplo, o elemento a ser buscado possui O Id 
3. As setas cinzas representam a separação entre o elemento Head 
da lista e as setas azuis indicam a união do elemento Head com a 
lista dos elementos já percorridos. 





Figura 7.13: Retorno em calda 


Esta função deve ser usada na função excluircliente : 


let excluirCliente id = 
let tabela = obterClientes() 
let dados = excluirClienteComId id [] tabela.Dados 
salvarTabela (tabela with Dados = dados} 


Agora podemos criar um ponto de acesso no controller 
ClienteController para acessar esta função. Vamos criar a action 
Excluir , € ela deve chamar a função excluircliente Criada 
anteriormente: 


[<HttpDelete>] 
member this.Excluir(id) = 
Servicos.ClienteServico.excluirCliente id 


Note que, para este caso, estamos utilizando o método DELETE, 
afinal, esta é uma operação de exclusão. Já podemos testar esta 


action no navegador. 
MP HTTP request = Headers 


http://localhost:48213/api/cliente/Excluir/1 


DELETE 


Send request «À Reset fields D 


t Response £& Raw response 
{ 
arquivo”: YD" 
"dados": [ 
l 
nida: s2: 
"nome": "Mariazinha", 


Response headers 


Figura 7.14: ASP.NET Web API - ClienteController - Exclusão 


Agora as funções de inclusão e exclusão já estão prontas e 
testadas, mas podemos voltar ao módulo de serviços e melhorar 


ainda mais o código. Veja a imagem com o código das duas 
funções: 


let incluirCliente cliente = 
let tabela = obterClientes() 
let dados = cliente :: tabela.Dados 
salvarTabela (tabela with Dados = dados) 


let excluirCliente id = 
let tabela = obterClientes() 


let dados = excluirClienteComId id [] tabela.Dados 
salvarTabela (tabela with Dados = dados} 


Figura 7.15: Repetição de código 


A única diferença entre elas é o conteúdo do valor dados . Então, 
podemos separar o comportamento repetido em uma função 
diferente e apenas alterar o parâmetro passado para esta função. 


let atualizarTabelaClientes novosDados = 
let tabela = obterClientes() 
let dados = novosDados 
sSalvarTabela (tabela with Dados = dados} 


Agora vamos alterar a função incluircliente. 


let incluirCliente cliente = 
atualizarTabelaClientes cliente 


Note que ela não terá o resultado esperado, porque precisamos dos 
dados que já estão salvos na tabela de clientes para uni-los ao 
cliente que é informado via parâmetro. No entanto, a tabela de 
clientes só é obtida dentro do método atualizarTabelaclientes . O que 
podemos fazer neste caso? 


A resposta é simples. Podemos fazer com que o parâmetro 
novosDados Seja uma função que espere como parâmetro a tabela de 


clientes, e retorne um novo conjunto de dados. 


let atualizarTabelaClientes funcaoParaObterNovosDados = 
let tabela = obterClientes() 
let dados = funcaoParaObterNovosDados tabela 
salvarTabela (tabela with Dados = dados} 


Com isso, é possível alterar a função incluircliente para informar 
uma função anônima como parâmetro, responsável por unir o cliente 
recebido com os dados já existentes na tabela. 


let incluirCliente cliente = 
atualizarTabelaClientes (fun tabela -> cliente :: tabela.Dados) 


A mesma mudança pode ser feita para a função excluircliente : 


let excluirCliente id = 
atualizarTabelaClientes (fun tabela -> 
excluirClienteComId id [] tabela.Dados) 


Desta forma, o código fica mais centralizado e estamos 
reaproveitando-o melhor. E por falar em reaproveitamento de 
código, é possível criar a função para atualizar os dados de um 
cliente existente através da utilização de algumas funções já 
criadas. 


Para atualizar os dados, precisaremos remover o cliente com os 
dados antigos da tabela e adicionar o cliente com os novos dados. 
Para fazer isso, crie a função atualizarcliente €, assim como a 
função de inclusão, ela também deve esperar um cliente por 
parâmetro. 


Neste caso, criaremos uma função aninhada a esta função, que 
receberá por parâmetro a tabela de clientes e deve retornar uma 
lista com o cliente atualizado. Para isso, esta função aninhada 
deverá primeiro remover o elemento antigo da lista salva na tabela, 
e depois disso realizar a soma através do operador " :: ". 


let removeEAdiciona tabela = 
let listaSemCliente = excluirClienteComId 


cliente.Id 


[] 
tabela.Dados 


cliente :: listaSemCliente 


A etapa entre a criação do valor 1istasemCcliente e a união do 
elemento pode ser juntada em uma única expressão, conforme o 
código: 

let removeEAdiciona tabela = 


cliente :: (excluirClienteComId 
cliente.Id 


[] 
tabela.Dados) 


Agora basta informar esta função aninhada por parâmetro para a 
função atualizarTabelaclientes para concluir esta implementação. 


let atualizarCliente cliente = 
let removeEAdiciona tabela = 
cliente :: 
(excluirClienteComId 
cliente. Id 


[] 
tabela.Dados) 


atualizarTabelaClientes (removeEAdiciona) 


Com isso feito, podemos expor esta função através do controller de 
clientes. Desta vez, utilize o método HTTP pur por se tratar de uma 
atualização. 


[<HttpPut>] 
member this.Atualizar(cliente) = 
ClienteServico.atualizarCliente cliente 


Agora temos a gestão completa dos clientes da aplicação: busca, 
inclusão, exclusão e alteração. 


7.5 Resumo 


Neste capítulo, foi implementada a camada de banco de dados da 
aplicação que está sendo desenvolvida, utilizando wrappers e 
operadores customizados. Além disso, foram implementados os 
serviços para lidar com os dados referentes à tabela de clientes e 
seu respectivo controller web API, utilizando diversos conceitos a 
respeito de listas imutáveis. 


Foi visto como realizar a inserção, exclusão e atualização de 
elementos, como unir duas listas distintas e como percorrer listas 
através de um laço de repetição ou de uma função recursiva. 


No próximo capítulo continuaremos trabalhando com listas, mas 
desta vez utilizando as funções de alta ordem disponíveis na 
linguagem. Vamos compreender o funcionamento de valores que 
possuem um contexto, cercando-os. 


Você pode encontrar os códigos escritos neste capítulo em: 


www.bit.ly/funcional-Cap”7. 





CAPÍTULO 8 
Transporte e transformação dos dados 


No capítulo anterior, foram criadas diferentes funções que interagem 
com a lista de clientes salvos no banco de dados. A implementação 
destas funções inicialmente utilizou o laço de repetição for e, 
depois disso, elas foram refatoradas para uma abordagem 
recursiva. 


Mas ainda há outras formas para manipular dados em uma lista. 
Podemos utilizar as funções disponíveis no módulo List. 
Internamente estas funções usam a recursividade para percorrer a 
lista, mas elas encapsulam esta complexidade. 


8.1 Funções de alta ordem para consultas 


Existem diversas funções no módulo List, a maioria das quais são 
funções de alta ordem que percorrem a lista de forma recursiva 
aplicando uma função passada por parâmetro. Esta abordagem 
pode simplificar a função de exclusão de clientes do módulo 
Clienteservico , feita no capítulo anterior. 


A função excluirclienteComid consiste em remover um elemento da 
lista de clientes baseado em um critério, ou seja, é realizado um 
filtro na lista. Para realizar filtros em uma lista, é possível utilizar a 
função List.filter, que espera dois parâmetros: uma função 
anônima para filtrar os elementos e a lista que será filtrada. 


let excluirClienteComId id (lista:Cliente list) = 
lista 
|> List.filter (fun cliente -> cliente.Id <> id) 


Note que podemos remover o parâmetro jaPercorridos , afinal, a 
complexidade de percorrer a lista está encapsulada na função 


filter . Neste caso específico, estamos usando a ideia de filtrar 
uma lista para remover um elemento, mas podemos criar diferentes 
filtros, inclusive criando formas de pesquisar um cliente salvo no 
banco de dados. 


Vamos criar duas funções diferentes: uma para obter um cliente 
através de seu CPF, e outra através de seu nome. 


let obterPorcCpf cpf = 
obterClientes().Dados 
|> List.filter (fun cliente -> cliente.CPF = cpf) 


let obterPorNome nome = 
obterClientes().Dados 
|> List.filter (fun cliente -> cliente.Nome = nome) 


Note que, nos códigos criados, há uma repetição desnecessária. 
Podemos novamente extrair o comportamento padrão em uma 
função. 


let filtrarTabelaClientesPor filtro = 
obterClientes().Dados 
|> List.filter filtro 


Agora precisamos realizar a chamada desta função nas duas 
funções criadas anteriormente: 


let obterPorCpf cpf = 
filtrarTabelaClientesPor 
(fun cliente -> cliente.CPF = cpf) 


let obterPorNome nome = 
filtrarTabelaClientesPor 


(fun cliente -> cliente.Nome.Contains nome) 


Além das funções para filtragem, é comum existir um serviço para 
buscar um único valor a partir de seu identificador. Os 
identificadores geralmente são as chaves primárias da tabela do 
banco de dados e, através deles, é possível realizar uma consulta 


com uma performance superior, por conta da otimização que o 
sistema gerenciador de banco de dados aplica neste tipo de campo. 


CHAVES PRIMÁRIAS 


As chaves primárias são um conjunto de um ou mais campos 
(em nosso exemplo, temos apenas o campo 1d) para identificar 
um registro único em uma tabela do banco de dados. Podem 
existir dois clientes com o mesmo nome, sobrenome, idade etc., 
mas nunca poderá haver dois clientes diferentes com a mesma 
chave primária. 


Para mais informações sobre a definição de chave primária, 
acesse: http://bit.ly/pk-wiki. 





Para implementar esta consulta, iniciaremos seguindo os mesmos 
passos dos exemplos anteriores: 


let obterPorId id = 
filtrarTabelaClientesPor 
(fun cliente -> cliente.Id = id) 


A função descrita anteriormente funciona corretamente, mas 
perceba que esta função é do tipo int -> cliente list , € sabemos 
que só haverá um único cliente com cada identificador. 


Para o caso de buscas em que o retorno esperado é somente um 
único valor, é aconselhável utilizar a função find em vez de filter, 
conforme o código: 


let obterPorId id = 
obterClientes().Dados 
|> List.find (fun cliente -> cliente.Id = id) 


Ao avaliar novamente o tipo da função, é possível notar que agora 
ela é do tipo int -> cliente, OU Seja, apenas um valor será 
retornado. Mas em casos nos quais a consulta informada pode 
retornar mais de um valor, o que ocorre? 


Nestes casos, o primeiro valor encontrado que corresponder à 
condição é retornado. Também há o caso de a condição informada 
não retornar nenhum valor. Neste cenário, esta função lança uma 
exceção do tipo KeyNotFoundexception , OU Seja, não foi encontrado 
nenhum valor com a condição informada. 


Como não desejamos que este problema aconteça, vamos utilizar a 
função tryFind, que tem o mesmo objetivo. No entanto, o seu 
retorno é um valor opcional. Nos casos em que a condição 
informada não encontra nenhum valor, é retornado o caso none do 
tipo option, evitando o lançamento da exceção. 


let obterPorId id = 
obterClientes().Dados 
|> List.tryFind (fun cliente -> cliente.Id = id) 


Após criar todas estas consultas, apenas por questões de 
organização de camadas, também vamos criar a função obterTodos . 
Por enquanto, ela será responsável apenas por fazer a ponte entre 
o controller de clientes e o módulo de persistência. 


let obterTodos() = 
obterClientes().Dados 


A última etapa é a criação de pontos de acesso a estas funções no 
controller de clientes: 


[<HttpGet>] 
member this.ObterTodos() = 
ClienteServico.obterTodos() 


[<HttpGet>] 
member this.ObterPorId(id) = 
ClienteServico.obterPorId id 


[<HttpGet>] 
member this.ObterPorCpf(cpf) = 
ClienteServico.obterPorCpf cpf 


[<HttpGet>] 


member this.ObterPorNome(nome) = 
ClienteServico.obterPorNome nome 


Com isso, o controller de clientes já terá diversas actions diferentes, 
incluindo a possibilidade de realizar consultas através do CPF ou do 
nome de um cliente. 


S C | O localhost:48213/api/cliente/obterTodos 


[("id":1,"nome":"Joãozinho","sobrenome":"Silva","cpf":"021.231.231-21" 
("id":2,"nome":"Mariazinha","sobrenome":"Souza","cpf":"123.321.123-21" 


S C | D localhost:48213/api/cliente/obterPorld?id=1 


[("id":1,"nome":"Joãozinho","sobrenome":"Silva","cpf":"021.231.231-21" 
< C | O localhost:4821 3/api/cliente/obterPorNome fome Ni 


[{"id":2, "nome": "Mariazinha", ' 'sobrenome" :"Souza","cpf":"123.321.123-21 


E C |© localhost: 48213/api/cliente/obterPorCpf?Epf=021 231231 21 
[("id":1,"nome":"Joãozinho", "sobrenome": "Silva", “cpf":"921.231.231-21" 


Figura 8.1: ASP.NET Web API - Resultados das actions 


8.2 A camada de transporte 


Apesar de diferentes consultas terem sido criadas, não está sendo 
disponibilizada nenhuma forma de realizar consultas com filtros 
complexos que envolvam mais de um campo. A necessidade de 
consultas deste tipo é muito comum em aplicações web que 
envolvam cadastros, então vamos implementar esta flexibilidade no 
filtro. 


Para que seja possível criar uma consulta destas, é necessário criar 
os tipos que representam os filtros. Estes tipos podem possuir 
diferentes nomes na literatura, e é possível encontrá-los como 
Requests, Filters e até ViewModels; mas independente do nome, a 
função é a mesma. Em nossa aplicação, eles serão criados em uma 
camada denominada de transporte. 


Vamos criar um namespace chamado Transporte para representar 
esta camada da aplicação. O seu arquivo deve ser inserido antes 
do arquivo de serviços. 


Após a criação deste namespace, criaremos o módulo Filtros € o 
tipo clienteriltro, contendo os campos possíveis para realizar uma 
consulta de cliente. 


namespace Transporte 
module Filtros = 


type ClienteFiltro = { 
Nome: string 
CPF: string 
Idade: int 


} 


Agora na camada de serviços, é possível criar um método que 
espere este filtro por parâmetro e realize todas as filtragens sobre a 
lista de clientes. Para esta busca, vamos utilizar o campo nome do 
filtro para filtrarmos tanto o nome quanto o sobrenome do cliente, 
conforme o código: 


let obterPor filtro = 
filtrarTabelaClientesPor 
(fun cliente -> 
cliente.CPF = filtro.CPF 
&& ( cliente.Nome.Contains filtro.Nome 
|| cliente.Sobrenome.Contains filtro.Nome) 
&& cliente.Idade = filtro.Idade 


Agora, vamos fazer o teste através do navegador. Mas antes, 
lembre-se de alterar o controller de clientes para incluir uma 
chamada a esta função. 


Neste caso, há uma particularidade nesta implementação: como o 
parâmetro não é mais um valor simples e sim um record, é 
necessário informar o atributo [<Fromuri>] . Este atributo indica ao 
framework web API que este record será construído a partir dos 
dados informados no endereço. 


[<HttpGet>] 
member this.ObterPor( [<FromUri>] filtro) = 
ClienteServico.obterPor filtro 


Vamos realizar o teste através do navegador, utilizando todas as 
propriedades do filtro, pelo endereço: 
url da aplicacao/api/cliente/obterPor? Nome=J&CPF=1&Idade=10 . 


Ops, ao realizar este teste, recebemos o seguinte erro: 
< C | O localhost:48213/api/cliente/obterPor?Nome=J&CPF=021.231.231-21 
This XML file does not appear to have any style information associated with it. 


v<Error> 
<Message>An error has occurred.</Message> 
v<ExceptionMessage> 
Nenhum construtor sem parâmetros foi definido para este objeto. 
</ExceptionMessage> 
<ExceptionType>System.MissingMethodException</ExceptionType> 
b<StackTrace>...</StackTrace> 


</Error> 


Figura 8.2: ASP.NET Web API - Erro ao construir um valor 


Este erro ocorre devido a uma particularidade do framework: para 
construir um valor a partir dos dados recebidos do navegador, o 
framework precisa de um construtor sem nenhum parâmetro. Como 
os records são imutáveis, é necessário informar todos os valores no 


momento de sua construção; e é justamente este conflito que causa 
o erro. 


Felizmente, basta inserir o atributo [<cLimutable>] acima do tipo 
ClienteFiltro para solucionar o problema. Com este atributo, o 
framework passa a conseguir criar este tipo normalmente. Então, 
depois de inseri-lo, realize os testes novamente. 


= Œ | © localhost:48213 'api/cliente/obterPor?Nome=J&CPF=021.231.231-218&ldade=21 


[("id":1,"nomeCompleto":"Joãozinho Silva","cpf":"921.231.231-21","idade":21,"telefone" 


Figura 8.3: ASP.NET Web API - Aplicando filtro na tabela de clientes 


Com poucos testes, já é possível notar que o filtro aplicado na lista 
está criando uma condição baseada em todos os campos do filtro. 
Precisamos alterar isso, afinal, não deveríamos obrigar o usuário da 
aplicação web a informar todos os campos de um filtro. 


O atributo [<cLiMutable>] Usado anteriormente faz com que o 
framework consiga criar o valor clienteriltro mesmo em situações 
nas quais não foram informados todos os valores. Nestas situações, 
cada um dos campos do filtro que não foi informado recebe o valor 
padrão de seu tipo. 


No filtro criado, temos duas strings (nome e CPF) e um inteiro 
(idade). Nos casos em que uma string não é informada, o campo vai 
assumir o valor null e, no caso do campo inteiro, o valor assumido 
será o 0. 


Teremos de lidar com os valores iniciais e, em alguns casos, valores 
nulos, devido à implementação orientada a objetos do framework 
web API. Mas podemos lidar com isso facilmente. 


Antes de cada comparação do campo do cliente, será necessário 
validar se o valor do filtro que será comparado é igual ao valor inicial 
de seu tipo. Este caso será verdadeiro quando o campo do filtro não 


foi informado, portanto, não é necessário realizar a comparação com 
o cliente do banco de dados. 


Primeiro vamos alterar a validação do campo Idade, já que a 
comparação precisa retornar verdadeira quando a idade informada 
no filtro for igual à idade do cliente, ou quando a idade do filtro não 
foi informada: 


let obterPor filtro = 


&& ( filtro.Idade = O || cliente.Idade = filtro.Idade ) 


A lógica para fazer as comparações com as strings é a mesma. 
Precisamos verificar se os campos do filtro não foram informados, 
ou se a comparação com o cliente é verdadeira. Para fazer a 
comparação das strings, é necessário utilizar o método 
IsNullOrEmpty disponibilizado em System.String. 


Como a comparação de uma string é uma tarefa bastante comum, 
definiremos uma nova função no módulo de operadores para 
realizar esta comparação: 


let (11) string = String. IsNullOrEmpty string 


A partir de agora, será possível verificar se uma string está vazia ou 
nula através do operador !! . Vamos usá-lo para alterar a 
comparação do CPF do cliente. Agora esta comparação também vai 
verificar se o valor CPF do filtro está vazio. 


let obterPor filtro = 


( !! filtro.CPF || cliente.CPF = filtro.CPF) 


As comparações realizadas entre o CPF e os campos referentes 
aos nomes são diferentes. Isso ocorre porque o CPF precisa ser 
digitado por completo e os nomes podem ser parcialmente 
digitados. 


Como a comparação de campos de texto também é uma tarefa 

bastante comum, podemos criar um novo operador para isso. Neste 
caso, o operador precisa validar se uma determinada string contém 
dentro dela uma segunda string, geralmente chamada de substring. 


Além disso, esta comparação só precisa ser feita se houver algum 
valor na substring. Em casos em que ela é nula ou vazia, não é 
preciso realizar a comparação. 


let (<~) (string:string) substring = 
(1! substring || string.Contains substring ) 


Agora podemos finalizar a montagem do filtro de clientes usando 
este operador. 


let obterPor filtro = 
filtrarTabelaClientesPor 
(fun cliente -> 
(1! filtro.CPF || cliente.CPF = filtro.CPF) 
&& ( cliente.Nome <~ filtro.Nome 
|| cliente.Sobrenome <~ filtro.Nome) 
&& ( filtro.Idade = O || cliente.Idade = filtro.Idade ) 


) 


Já podemos testar novamente os filtros através do navegador e tudo 
deve funcionar de acordo com o esperado, conforme ilustra a figura 
a seguir. 


o< C | O localhost:48213/api/cliente/obterPor? 


[("id":1,"nome":"Joãozinho","sobrenome":"Ssilva","cpf 
("id":2,"nome":"Mariazinha","sobrenome":"Souza","cpf 


o < Œ | O localhost:48213/api/cliente/obterPor?Idade=21 | 


[["id":1,"nome":"Joãozinho","sobrenome":"Silva","cpf":"021.231.231-21", nei 


("id":2,"nome":"Mariazinha","sobrenome":"Souza","cpf":"123.321.123-21", 


o < C | © localhost:48213/api/cliente/obterPor?Nome=] 


{ridi "nome" :"Joãozinho", "sobrenome" :"Silva","cpf":"021 


o € & ko localhost-48213/api/cliente/obterPor?EPE=123321123-21] 
[("id":2,"nome”:"Mariazinha","sobrenome": "Souza", "epf":"123.321.123-21", "ida 


Figura 8.4: ASP.NET Web API - Resultados dos filtros 


1. Resultado sem informar nenhum campo de filtro; 
2. Resultado informando a idade; 

3. Resultado informando parte do nome; 

4. Resultado informando o CPF completo. 


Após esta implementação, concluímos os ajustes no serviço e o 
controller de clientes. O controller e os serviços para a gestão de 
produtos e compras funcionam de maneira similar, então as etapas 


para a criação destes componentes não serão detalhadas passo a 
passo. 


Para o serviço de compras, não é necessário implementar a função 
obterPor . Por enquanto, implementaremos somente a função de 
busca através do obterTodos . 


Você pode fazer o download do código-fonte com a implementação 
destes módulos em: http://bit.ly/funcional-Cap8-1. Mas apesar de o 
código-fonte estar disponível, é fortemente recomendado que você o 
implemente para obter mais prática e experiência na linguagem e no 
paradigma funcional. 


Após criar os serviços de todas as entidades, já é possível realizar o 
cadastro de clientes, produtos e compras. No entanto, a forma como 
um banco de dados armazena as informações sobre as compras 
não é muito interessante para o usuário final. Observe o retorno da 
consulta de uma compra cadastrada: 


des é a 
'clienteld": 1, 
"Itens": | 
{ 
“produtold”: 1, 
"quantidade": 2, 
'valorTotal": 400 
}s 
{ 
produtold": 2, 
"quantidade": 1, 
'"valorTotal": 30 
F 
l, 
"valorTotal": 480 


Figura 8.5: ASP.NET Web API - Obtendo os dados uma compra 


Apesar de auxiliar muito no momento da gravação, expor apenas o 
identificador do cliente ou de um produto não auxilia o usuário final. 
Precisamos expor informações mais significativas, como o nome e 
CPF do cliente, por exemplo. 


Isso ocorre porque não estamos relevando o contexto ao redor dos 
identificadores. Aqueles valores representam mais do que somente 
um número inteiro, representam um caminho para um registro de 
outra tabela. 


Precisamos de um record na camada de transporte para expor os 
dados das compras, mas que também exponha mais informações 
do cliente e dos produtos. Para isso, crie um módulo chamado 
Respostas € utilize O sufixo Resposta NO record. 


Inicialmente, vamos adicionar apenas as informações sobre o 
cliente, conforme o código: 


module Respostas = 
open Dominio 


type CompraResposta = { 
Id: int 
ClienteId: int 
ClienteNomeCompleto: string 
ClienteCPF: string 
ClienteIdade: int 
ClienteEndereco: string 
Itens: ItemCompra list 
ValorTotal: double 


} 


Perceba que existem muitos campos para representar os valores 
que pertencem ao cliente. Na verdade, devemos separá-los em um 
record de resposta para os dados do tipo cliente e reaproveitá-los na 
resposta para os dados de compras. 


type ClienteResposta = { 
Id: int 
NomeCompleto: string 
CPF: string 
Idade: int 
Endereco: string 


type CompraResposta = { 


Cliente: ClienteResposta 


Vamos deixar o tipo de resposta para compras um pouco de lado 
para focar em boas práticas no desenvolvimento de serviços. Os 
serviços atualmente estão implementados para retornar os mesmos 
dados salvos no banco de dados. 


Este tipo de implementação comumente é visto como um código 
ruim. Afinal, todas as informações salvas estão sendo expostas. 
Para solucionar isso, os dados geralmente passam por alguma 
transformação, isso permite à aplicação ocultar ou adicionar valores 
em um retorno. 


Note que o tipo clienteResposta Não possui o campo referente ao e- 
mail cadastrado e, além disso, os campos nome e sobrenome foram 
unidos em um campo para o nome completo. Estas pequenas 
diferenças são apenas para exemplificar o processo de 
transformação de um tipo de dado em outro. 


Vamos alterar os retornos dos serviços para que sempre seja usado 
um valor de resposta em vez de retornar diretamente a entidade. 
Para que esta mudança de tipo ocorra, será necessário criar as 
funções de transformação. Estas funções podem ser inseridas em 
um novo módulo, ou pode-se estender os tipos resposta. 


Mesmo não havendo um construtor para os records em FX, é 
possível associarmos funções a eles. Esta característica é 


conhecida como extensão de tipos, algo similar aos métodos de 
extensão disponíveis em CH. 


A palavra reservada with é utilizada para definir o início do escopo 
de um tipo. A partir deste ponto, a criação das funções é bastante 
semelhante à criação de métodos em Orientação a Objetos. 


Vamos criar a função transformar para O record que representa os 
clientes. Ela deve receber por parâmetro o cliente que será 
transformado, conforme o código: 


type ClienteResposta = { 


} with 
static member 

transformar (cliente:Cliente) = 

{ 
Id = cliente. Id 
NomeCompleto = cliente.Nome ^ " " ^ cliente.Sobrenome 
CPF = cliente.CPF 
Idade = cliente.Idade 
Telefone = cliente.Telefone 
Endereco = cliente.Endereco 


} 


Note que usamos a palavra reservada static antes da declaração 
do membro. Isso porque esta é uma função que será atribuída ao 
próprio tipo ClienteResposta , € não a um valor construído deste tipo. 


FUNÇ ES E MÉTODOS ESTÁTICOS 


A palavra reservada static faz com que as funções e métodos 
declarados pertençam ao tipo que a contém em vez de pertencer 
aos valores daquele tipo. A Microsoft disponibiliza uma 
documentação a respeito da palavra reservada static e seus 
conceitos. Esta documentação foca na sintaxe em C#, mas os 
conceitos podem ser aplicados tanto em C# quanto F#. Acesse- 
a através do link: http://bit.ly/static-ms. 





Vamos importar este namespace no módulo ciienteservico para 
utilizarmos esta função no momento de retornar os dados. Primeiro, 
vamos alterar a função obterporid . Ela retorna apenas um cliente, 
então tudo o que precisamos fazer é inserir uma chamada à função 
de transformação em sequência no pipeline já existente: 


let obterPorId id = 
obterClientes().Dados 
|> List.tryFind (fun cliente -> cliente.Id = id) 
|> ClienteResposta.transformar 


Infelizmente, esta implementação não funcionará corretamente por 
problema de tipos diferentes. A função transformar espera por 
parâmetro um cliente, mas a função tryFind retorna um possível 
cliente, ou seja, o valor está circundado pelo tipo option. 


Para solucionar isso, armazenaremos o retorno da função tryFind 
em um valor local e realizaremos um pattern matching para 
transformar o valor quando possível. No caso onde há um cliente, 
vamos transformá-lo em um clienteResposta €, no caso onde não há 
nenhum valor no tipo opcional, apenas continuaremos a retornar o 
tipo None . 


let obterPorId id = 
let cliente = 
obterClientes().Dados 
|> List.tryFind (fun cliente -> cliente.Id = id) 
match cliente with 
| Some cliente -> ClienteResposta.transformar cliente |> Some 
| None -> None 


Após isso, a implementação funciona corretamente. Perceba que 
houve um esforço maior para utilizar a função de transformação por 
conta de o cliente ser um valor opcional. Teremos o mesmo 
problema ao lidar com valores dentro de uma lista, afinal, nossa 
função transforma apenas um cliente e não uma lista deles. 


Existem formas melhores para usarmos a função de transformação 
em casos em que o cliente é um valor opcional ou pertence a uma 


listagem. Mas para compreender isso, precisamos antes 
compreender um conceito um pouco mais abstrato, que, para fins 
didáticos, vamos chamar de: universo paralelo dos dados. 


8.3 O início dos universos paralelos 


Nas histórias em quadrinhos, este termo é muito utilizado para 
descrever histórias alternativas, ou versões alternativas dos super- 
heróis conhecidos. Em histórias como a do super-herói Flash, 
existem diversos planetas e terras diferentes, uma em cada 
universo. 


Em cada planeta terra diferente, existe um sósia dos personagens 
que, apesar de serem a mesma pessoa, possuem alguns 
comportamentos e até superpoderes diferentes. Em nossa 
aplicação, não será diferente. 


Imagine que todos os tipos com que trabalhamos até agora, 
incluindo os tipos de função, fazem parte do universo comum. Mas 
assim como nos quadrinhos, existem diferentes universos paralelos 
e, em cada universo, teremos um sósia correspondente de um tipo 
do universo comum. 


Por exemplo, em nossa aplicação, é possível encontrar o tipo int. 
A versão paralela para representar este tipo pode ser definida como 
UniversoParalelo<int>, OU UP<int> para abreviação. 


A figura a seguir demonstra alguns exemplos. 
















int | 1 UP<int> 
Cliente | 1 UP<Cliente> 
int -> bool | 1 UP<int -> bool> 


int -> Cliente UP<int -> Cliente> 





Figura 8.6: Universo paralelo dos tipos 


Existem diferentes tipos de universos paralelos e cada um existe 
para um propósito diferente e, por sua vez, tem suas próprias 
características. Os principais exemplos que serão tratados aqui são 
os universos paralelos que já estamos utilizando na aplicação: 
option €O list. 


Perceba que estes dois universos são bastante diferentes entre si, 
mas ambos podem representar um tipo do universo comum. 
Podemos ter um valor inteiro, um valor inteiro opcional ou um valor 
inteiro dentro de uma lista. 


Mesmo que estes universos não sejam semelhantes entre si, há 
uma série de semelhanças na forma de se trabalhar com eles. 
Independente de qual universo seja, existem funções para 
transitarmos entre eles. 


Além disso, os tipos que estamos chamando de universo paralelo 
nada mais são do que tipos que possuem uma implementação 
baseada em generics. Ou seja, estes tipos, de alguma forma, são 
containers para outros tipos e podem ser usados para os mais 
diversos propósitos. 


Composição de funções para mapeamento entre universos 
diferentes 


A primeira função disponível para realizar a transição entre os 
universos é a função de mapeamento. Esta possui diferentes nomes 


dependendo da linguagem e do tipo que a implementa. No caso do 
NET, ela é chamada de map em Fã, e select em CÊ. 


A função de mapeamento transforma uma função do universo 
comum em uma função correspondente em um determinado 
universo paralelo. Imagine que você possui uma função de um tipo 
a -> b qualquer, como por exemplo, a função 
ClienteResposta.transformar , QUE recebe um cliente (a) e retorna um 
ClienteResposta (b). 





map 
| map 


int -> string 






| = UP<int> -> UP<string> 






Cliente -> ClienteResposta UP<Cliente> -> UP<ClienteResposta> 





Figura 8.7: Universo paralelo dos tipos 


A função de mapeamento sempre será do tipo (a -> b) -> UP<a> -> 
uP<b> . Ou seja, esta função recebe por parâmetro uma função do 
universo comum e um valor que já está em seu universo paralelo 
correspondente. 


Internamente, esta função transformará o segundo parâmetro em 
seu valor correspondente do universo comum, aplicará a função, e 
depois transformará o resultado novamente em um tipo de seu 
universo paralelo. Vamos analisar a alteração que fizemos na 
função obterPorid do módulo de serviços do cliente, para utilizar a 
função ClienteResposta.transformar . 


let obterPorId id = 
Q)let cliente = 
obterClientes().Dados 
|> List.tryFind (fun cliente -> cliente.Id = id) 
Qmatch cliente with O) ©) 


"| Some cliente -> ClienteResposta.transformar cliente [> Some 
| None -> None o A 


Figura 8.8: Universo paralelo dos tipos 


Observe que a imagem anterior está sinalizando com números, e 
cada número representa uma etapa diferente, que realizam as 
seguintes operações: 


1. Obter o valor do cliente através da função tryrind . Esta função 
retorna um valor pertencente ao universo paralelo option. 


2. É realizado um pattern matching para extrair o valor cliente do 
universo comum do valor opcional anterior. 


3. A função clienteResposta.transformar é aplicada ao valor do 
cliente no universo comum. 


4. O valor retornado da função é novamente transformado em um 
valor opcional através do some . 


Perceba que nos casos em que não há valor, não é necessária a 
execução da função. Em vez disso, o valor none é apenas passado 
como retorno. Felizmente, boa parte dos tipos que representam os 
universos paralelos já possui esta implementação, então não 
precisaremos implementar isso manualmente, como fizemos antes. 


Para os casos em que é necessário mapear uma função para os 
tipos opcionais, utilize a função option.map, conforme o código: 


let obterPorId id = 
obterClientes().Dados 


|> List.tryFind (fun cliente -> cliente.Id = id) 
|> Option.map (ClienteResposta.transformar) 


Esta implementação reflete o resultado final esperado. Porém, esta 
nova função possui um novo problema, ela passou a ter mais de 
uma responsabilidade. Antes ela era responsável por tentar buscar 
um cliente a partir de um identificador, agora ela continua realizando 
esta tarefa e, depois disso, ainda converte o cliente em um valor de 
transporte. 


Para solucionar isso, vamos utilizar a estratégia extrair e reutilizar, 
ou seja, o comportamento para obter o cliente do banco será 
separado em uma outra função. 


let obterDoBancoPorId id = 
obterClientes().Dados 
|> List.tryFind (fun cliente -> cliente.Id = id) 


Então, a função original passa a ser uma composição desta função 
com a de transformação: 


let obterPorId = 
obterDoBancoPorId 
>> Option.map (ClienteResposta.transformar) 


Agora vamos fazer a mesma alteração na função obterTodos . Note 
que, neste caso, os valores não pertencem ao universo dos valores 
opcionais, mas ainda não é possível aplicar a função de 
transformação. 


Isso ocorre porque a função de transformação espera apenas um 
cliente, e o retorno da busca para obter todos é uma lista de 
clientes. Isto é, neste caso estamos lidando com outro universo, O 
universo dos valores em uma lista. 


Para que a função de transformação seja convertida para o universo 
das listas, podemos utilizar a função List.map, que, assim como no 
caso anterior, fará com que a função se adeque ao universo paralelo 
correspondente. 


let obterTodos() = 
obterClientes().Dados 
|> List.map (ClienteResposta.transformar) 


Da mesma forma como foi feito antes, é necessário extrair e 
reutilizar o comportamento, para que as duas tarefas desta função 
sejam separadas. 


let obterTodos = 
obterTodosDoBanco 
>> List.map (ClienteResposta.transformar) 


No caso anterior, também é recomendado extrair uma chamada 
para a função map do módulo de listas em função, dada a 
necessidade que teremos em reutilizar nas demais funções. 


let transformarListaEmResposta = 
List.map (ClienteResposta.transformar) 


let obterTodos = 
obterTodosDoBanco 
>> transformarListaEmResposta 


Com isso, a composição das funções se torna mais fluida e 
poderemos reaproveitar esta chamada em diferentes funções. 
Repita este processo de transformação dos dados utilizando o map 
até que todo o serviço retorne apenas objetos de resposta. 


Veja por exemplo o resultado da função excluircliente : 


let excluirClienteDoBanco id = 
atualizarTabelaClientes 
(fun tabela -> obterSemClienteComId id tabela.Dados) 


let excluirCliente = 
excluirClienteDoBanco 
>> transformarListaEmResposta 


Vamos fazer este processo de transformação para a entidade de 
produtos também. Para isso, criaremos o tipo Produtoresposta . Neste 
caso, vamos manter as mesmas propriedades do tipo Produto . 


type ProdutoResposta = { 
Id: int 
Descricao: string 
Detalhes: string 
Preco: double 
} with 
static member 
transformar (produto: Produto) = 


{ 
Id = produto. Id 
Descricao = produto.Descricao 
Detalhes = produto.Detalhes 
Preco = produto.Preco 

} 


Após isso, utilize o map dos módulos List € option para transformar 
os produtos, conforme os exemplos: 


let transformarListaEmResposta = 
List.map (ProdutoResposta.transformar) 


let obterTodosDoBanco() = 
obterProdutos( ).Dados 


let obterTodos = 
obterTodosDoBanco 
>> transformarListaEmResposta 


let obterPorId id = 
obterDoBancoPorId 
>> Option.map (ProdutoResposta.transformar) 


Como já dito anteriormente, existem diversas semelhanças entre os 
serviços de cliente e produto, então as mudanças feitas nos dois 
casos são bastante similares. Após estas implementações, vamos 
retornar ao problema inicial: o retorno das consultas realizadas na 
entidade de compras. 


8.4 Consultas e retornos com agregações 


Primeiro, vamos alterar a função obterPorrd , que obtém uma compra 
por meio de um identificador. Vamos extrair e reutilizar o código 
desta função, assim como fizemos anteriormente nos outros 
serviços. 


let obterDoBancoPorId id = 
obterCompras().Dados 
|> List.tryFind (fun compra -> compra.Id = id) 


let obterPorId = 
obterCompraDoBancoDeDadosPorId 


Após obter as informações da compra, é necessário obter as 
informações das entidades agregadas a ela, ou seja, o cliente que a 
realizou e os produtos que ela contém. Começaremos obtendo os 
dados do cliente, o que pode ser feito reaproveitando a função 
obterPorId do serviço de clientes. 


A função deste serviço retorna uma resposta de cliente opcional, 
afinal, pode ocorrer uma chamada ao serviço passando como 
parâmetro um identificador inválido. 


No caso de um cliente associado a uma compra, não devemos 
retornar um valor opcional, porque podemos levar em consideração 
que todo cliente associado a uma compra é um cliente cadastrado 
no banco. 


Para extrair o cliente de um valor opcional, podemos usar a função 
Option.get . Esta simplesmente transforma um valor do universo dos 
opcionais em seu valor equivalente no universo comum. Esta função 
lança uma exceção nos casos em que o valor opcional não 
contenha nada ( none ). 


let obterClienteDeUmaCompra compra = 
ClienteServico.obterPorId compra.ClienteId 
|> Option.get 


Agora já podemos criar a função transformar do tipo CompraResposta, 
que será semelhante às anteriores, mas com uma mudança nos 
parâmetros. 


Será necessário informar via parâmetro, além da entidade de 
compra, a função que será usada para obter os dados do cliente, 
conforme o código: 


type CompraResposta = 1 


} with 
static member 
transformar funcao0ObterCliente (compra:Compra) = 


{ 
Id = compra. Id 
Cliente = funcaoObterCliente compra 
Itens = compra. Itens 
ValorTotal = compra.ValorTotal 
} 


Neste momento, já temos a função de transformação, então vamos 
utilizá-la na camada de serviços de compra. Para facilitar a 
composição das funções deste serviço, vamos aproveitar o recurso 
de aplicação parcial visto no capítulo sobre funções. 


Para fazer isso, criaremos uma função que realiza uma chamada 
parcial da função de transformação, informando apenas a função 
que obtém os dados do cliente, conforme o código: 


let transformarCompraEmResposta = 
CompraResposta.transformar obterClienteDeUmaCompra 


Com esta implementação, a função criada 

transformarCompraEmResposta Vai esperar apenas o parâmetro restante 
da função CompraResposta. transformar , que neste caso éa compra que 
será transformada em resposta. 


Perceba que, através desta aplicação parcial, transformamos a 
função que anteriormente possuía dois parâmetros em uma de um 


único parâmetro. Isso significa que podemos usá-la para compor as 
funções de busca normalmente, como fizemos nos outros serviços. 


let obterPorId = 
obterDoBancoPorId 
>> Option.map (transformarCompraEmResposta) 


Após esta alteração, já é possível obter as informações da compra e 
do cliente que a realizou, conforme ilustra a figura a seguir. 


1 
"id": 1, 


ig 
"nomeCompleto": "Joãozinho Silva”, 
"cpf": "921.231.231-21", 


"idade": 21, 
"telefone": "99887766", 
"endereco": "Rua do joãozinho" 





"Teens: | 
{ 
"produtoId": 1, 
"quantidade": 2, 
"valorTotal": 400 
+, 
l 
"prödutord": 2, 
"quantidade": 1, 
"valorTotal": 80 
} 
l, 
"valorTotal": 480 
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Agora, vamos criar uma função para realizar esta operação em 
listas de dados, assim como fizemos nos serviços de cliente e 
produto. 


let transformarListaEmResposta = 
List.map (transformarCompraEmResposta) 


Com esta função, podemos alterar todas as funções existentes para 
que sempre retornem uma compra transformada em resposta. 


let incluirCompra = 
incluirCompraNoBanco 
>> transformarListaEmResposta 


let atualizarCompra = 
atualizarCompraNoBanco 
>> transformarListaEmResposta 


let excluirCompra = 
excluirCompraNoBanco 
>> transformarListaEmResposta 


let obterTodos = 
obterTodosDoBanco 
>> transformarListaEmResposta 


Com estas implementações, já podemos visualizar os dados do 
cliente que realizou a compra, mas ainda não é possível visualizar 
os produtos vinculados a cada item de compra. Isso ocorre porque o 
tipo para a representação dos itens da compra ainda é o tipo 


ItemCompra . 


Para alterarmos isso, precisaremos criar o tipo de resposta para os 
itens da compra. Internamente ele vai reaproveitar o tipo 


ProdutoResposta . 


type ItemCompraResposta = { 
Produto: ProdutoResposta 
Quantidade: double 


ValorTotal: double 
} 


A função de transformação deste tipo também precisará receber 
uma outra função por parâmetro, assim como no tipo CompraResposta . 
Neste caso, será recebida a função usada para obter os dados do 
produto associado ao item. 


type ItemCompraResposta = { 
} with 
static member 
transformar funcaoObterProduto (itemCompra: ItemCompra)= 


{ 
Produto = funcaoObterProduto itemCompra 
Quantidade = itemCompra.Quantidade 
ValorTotal = itemCompra.ValorTotal 

} 


Agora podemos usar este tipo na resposta de compras: 


type CompraResposta = { 
Itens: ItemCompraResposta list 


} 


Além disso, é preciso alterar a função de transformação do tipo 
compras. Precisamos receber através do parâmetro mais uma 
função, responsável por transformar os itens da compra em seu 
valor equivalente no formato de resposta. 


type CompraResposta = { 
Itens: ItemCompraResposta list 


} with 
static member 
transformar 
funcaoObterCliente 
funcaoObterItens 


(compra:Compra) = 


Itens = funcaoObterItens compra 


| 


Assim, finalizamos os ajustes da camada de transporte, e podemos 
voltar para O módulo compraservico . 


A implementação para realizar a mudança do item da compra é um 
pouco diferente da implementação que fizemos para obter os dados 
do cliente. Isso porque, em cada compra, podemos ter diversos 
produtos associados a ela e, no caso do cliente, sempre havia 
apenas um. 


Para fazer com que a busca pelos dados do produto seja mais 
eficiente, é interessante realizarmos apenas uma consulta no banco 
de dados trazendo todos os produtos contidos na compra em vez de 
buscarmos um por um, separadamente. 


Esta busca será feita pelos identificadores dos produtos associados 
à compra. Portanto, a primeira função criada neste módulo será 
responsável por extrair a lista de identificadores dos produtos de 
uma compra. 


let obterProdutosIdDeUmaCompra (itens: ItemCompra list) = 
itens 
|> List.map (fun item -> item.ProdutoId) 


Esta função é bastante simples. Estamos recebendo como entrada 
um item da compra e retornando a propriedade produtora deste 
item. Com isso, é possível extrair o identificador de um produto 
associado a um item. 


Como precisamos realizar esta operação para uma lista de itens de 
compra, utilizamos a função List.map para transportar esta função 
para o universo das listas. Agora é preciso criar uma função para 
obter produtos através de uma lista de identificadores. Esta função 


ainda não foi implementada e, para fins de organização, faremos 
esta implementação no módulo Pprodutoservico . 


Esta função deve receber uma lista de inteiros por parâmetro, obter 
os produtos do banco de dados e realizar uma filtragem na lista de 
produtos. Este filtro deve retornar somente os produtos cujo 
identificador esteja na lista enviada por parâmetro. 


Vamos realizar esta implementação em etapas. Primeiro criaremos 
a assinatura da função obterDoBancoPorListaId : 


let obterDoBancoPorListald ids = 


Agora vamos implementar uma função aninhada. Esta deve receber 
um identificador de produto através de parâmetro e verificar se este 
identificador existe na lista ids . Para fazer essa verificação, use a 
função List.exists. 


let obterDoBancoPorListaId ids = 
let buscarIdNaLista produtoId = 
ids 
|> List.exists (fun id -> 
id = produtoId ) 


Agora basta obter os produtos do banco de dados e realizar a 
filtragem através da função aninhada: 


let obterDoBancoPorListaId ids = 
let buscarIdNaLista produtoId = 
ids 
|> List.exists (fun id -> 
id = produtoId ) 


obterProdutos().Dados 
|> List.filter 
(fun produto -> 
buscarIdNaLista produto. Id ) 


Não esqueça de criar a função composta por esta implementação e 
a transformação do produto em um produto no formato de resposta: 


let obterPorListalId = 
obterDoBancoPorListalId 
>> transformarListaEmResposta 


Feito isso, podemos retornar ao serviço de compras. Vamos criar 
uma função que receba os itens da compra e, através dela, retorne 
a lista de produtos, já em formato de resposta. Ela será a lista de 
produtos usada para encontrar cada produto de cada item 
posteriormente, para não termos de pesquisar no banco de dados 
um item de cada vez. 


Para fazer esta função, basta realizar a composição da função 
criada neste módulo com a criada no módulo de produtos: 


let obterProdutosPorCompra = 
obterProdutosIdDeUmaCompra 
>> ProdutoServico.obterPorListalId 


Agora já é possível obter a lista que será realizada a pesquisa dos 
produtos. Porém, ainda precisamos da função que realiza esta 
pesquisa. Ela é bastante simples, basta recebermos a lista de 
produtos e um item de compra via parâmetro, e procurar nesta lista 
um produto que contenha o mesmo identificador associado ao item 
de compra. 


Para buscar o produto, utilize a função List.find, conforme código a 
seguir. 


let obterProdutoDeUmItem 
(produtos:ProdutoResposta list) 
(itemCompra: ItemCompra) = 
produtos 
|> List.find (fun produto -> 
produto. Id = itemCompra.ProdutoId) 


Por fim, precisamos criar a função que será passada por parâmetro 
para a transformação do tipo compra em um comprarResposta . Ela será 


responsável por receber um valor do tipo compra via parâmetro e 
retornar todos os itens desta compra no formato de resposta. 


let transformarItensDeUmaCompraEmResposta (compra: Compra) = 


Para que a consulta no banco de dados seja realizada somente uma 
vez, é necessário buscar todos os produtos da compra antes de 
percorrermos os itens. Para fazer isso, vamos criar uma função 
aninhada que utilize internamente a função obterProdutosPorCompra e, 
através dela, obteremos a lista de produtos. 


Depois disso, passaremos esta lista para a função 
obterProdutoDeUmItem €, através da aplicação parcial gerada 
automaticamente pela linguagem, teremos uma função que espera 
apenas um item de compra (parâmetro restante da função 
obterProdutoDeUmItem ) € retorna um produto no formato de resposta. 


let transformarItensDeUmaCompraEmResposta (compra: Compra) = 
let obterProdutoPorItem = 
obterProdutosPorCompra compra. Itens 
|> obterProdutoDeUmItem 


Também precisamos transformar a lista de itens de compra para o 
formato de resposta. Isso deve ser feito através da função 
ItemCompraResposta.transformar , criada anteriormente na camada de 
transporte. 


Realizaremos uma chamada à função de transformação, informando 
por parâmetro a função aninhada criada e o item de compra a ser 
transformado em resposta. Como os itens de compra estão em uma 
lista, é necessário utilizar a função List.map para aplicar a função de 
transformação em todos os itens, conforme vemos a seguir. 


let transformarItensDeUmaCompraEmResposta (compra: Compra) = 
let obterProdutoPorItem = 
obterProdutosPorCompra compra. Itens 
|> obterProdutoDeUmItem 


compra. Itens 
|> List.map (fun item -> 
ItemCompraResposta.transformar obterProdutoPorItem item) 


Por fim, precisamos informar esta função como segundo parâmetro 
na função transformarCompraEmResposta . 


let transformarCompraEmResposta = 
CompraResposta.transformar 
obterClienteDeUmaCompra 
transformarItensDeUmaCompraEmResposta 


Com isso, ao realizar uma consulta na entidade de compras, é 
possível visualizar os dados dos clientes e dos produtos! 


"id": 1, 


airia aie RE 

"nomeCompleto": "Joãozinho Silva", 
"cpf": "g21.231.231-21", 

"idade": 21, 

"telefone": "99887766", 
"endereco": "Rua do Joãozinho" 


"produto": { 
ao Gio RE 
"descricao": "Cadeira de Madeira”, 
"detalhes": "Madeira de eucalipto", 
“"nreco": 200 





quantidade”. E 
"valorTotal": 400 
Ee 


"produto": { 
Haie HEA 
"descricao": "Cadeira de Plástico", 
"detalhes": "teste", 


"preco": 80 
ls 
quantidade": 1, 
"valorTotal": 80 





E 
IE 
"yalorTotalL": 480 
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Assim, finalizamos as respostas dos serviços existentes! 


Depois de alterar a forma como os dados são visualizados nas 
respostas dos serviços, vamos criar a função obterPor para permitir 
o uso de filtros complexos também na busca de entidades do tipo 
Compra . Deixamos esta função por último devido à sua 
complexidade, pois será necessário cruzar valores das três tabelas 
do sistema. 


Filtros utilizando entidades agregadas 


Primeiro, vamos criar o tipo que define o filtro para esta pesquisa. 
Permitiremos que as compras sejam filtradas por: valor mínimo, 
descrição de um produto, nome e CPF do cliente. 


Não esqueça que é necessário usar o atributo [<cLIMutable>], para 
que este record possa ser utilizado como parâmetro no controller. 


[<CLIMutable>] 

type CompraFiltro = { 
ValorMinimo : double 
ClienteNome: string 
ClienteCPF: string 
ProdutoDescricao: string 


} 


Agora precisamos entender como estes filtros vão afetar as buscas 
das compras. Basicamente, criaremos, a partir deste filtro, filtros 
para clientes e produtos. Então, reutilizaremos as funções para 
obter os identificadores das duas entidades que correspondem ao 
filtro. Depois disso, é necessário filtrar as compras através dos 
identificadores encontrados. 


No caso do cliente, basta verificar se o identificador dele associado 
à compra está na lista de identificadores de todos os clientes obtidos 
pelo filtro. Já o caso dos produtos é um pouco mais complexo. Será 
necessário fazer a interseção dos produtos na compra com os 


produtos obtidos pelo filtro. Se a lista resultante desta operação 
possuir pelo menos um item, significa que a compra em questão 
possui um dos produtos que estão sendo procurados no filtro. 


INTERSEÇÃO 


A interseção é uma operação realizada entre dois conjuntos de 
valores. Esta operação resulta em um terceiro conjunto que 
possui somente os elementos que existem nos dois conjuntos. 


Por exemplo, uma interseção dos valores listal = [3 ; 5; 7; 
10] € lista2 = [3; 9; 10; 32] resultaria em: [3; 10], pois 
somente estes dois valores pertencem aos dois conjuntos. 





Vamos começar com a implementação com a função que obtém os 
identificadores dos clientes a partir do filtro de compras. Esta função 
precisa criar um valor do tipo clienteriltro a partir de um 
CompraFiltro , para então usar a função de busca de clientes e 
retornar apenas os identificadores deles. 


let obterIdsClientesDoFiltro (filtro:CompraFiltro) = 


{ 
Nome = filtro.ClienteNome 
CPF = filtro.ClienteCPF 
Idade = Q 

} 


|> ClienteServico.obterPor 
|> List.map (fun cliente -> cliente. Id) 


O mesmo deve ser feito para obter os produtos: 


let obterIdsProdutosDoFiltro (filtro:CompraFiltro) = 
{ 
Descricao = filtro.ProdutoDescricao 
PrecoMaximo = 0.0 
} 
|> ProdutoServico.obterPor 
|> List.map (fun produto -> produto. Id) 


Vamos começar criando a estrutura básica da função que realiza a 
busca das compras a partir de um filtro. 


let obterDoBancoPorFiltro (filtro: CompraFiltro) = 
obterCompras() .Dados 


Agora vamos adicionar uma função aninhada a ela. Esta função 
deverá receber por parâmetro o identificador de um cliente e 
verificar se este existe na lista obtida através do filtro. 


let obterDoBancoPorFiltro (filtro: CompraFiltro) = 
let filtrarPorCliente id = 
obterIdsClientesDoFiltro filtro 
|> List.exists (fun idLista -> idLista = id) 


Com isso, já é possível realizar o filtro das compras a partir das 
informações de um cliente. Basta realizar a filtragem a partir da 
função aninhada criada, conforme o código a seguir. 


let obterDoBancoPorFiltro (filtro: CompraFiltro) = 
let filtrarPorCliente id = 
obterIdsClientesDoFiltro filtro 
|> List.exists (fun idLista -> idLista = id) 


obterCompras().Dados 
|> List.filter(fun compra -> 
filtrarPorCliente compra.ClienteId ) 


Após isso, será necessário realizar a operação de interseção entre 
os produtos obtidos pelo filtro e os produtos da compra. 
Infelizmente, não há uma função disponível no módulo de listas para 
realizar esta operação. Mas vamos tirar proveito de uma função de 
interseção que existe no módulo set. 


Este módulo possui diversas funções para realizar operações sobre 
conjuntos de dados, incluindo a interseção. Para que seja possível 
realizar esta operação em listas, teremos de convertê-las para o tipo 
set , e depois transformá-las em listas novamente. Este processo 


pode ser feito pelas funções set.ofList € Set.toList, 
respectivamente. 


Como esta operação é bastante genérica, podemos criar um 
operador no módulo operadores para isso. Este operador será 
responsável por executar a interseção entre duas listas. 


let (><) listal lista2 = 
listal 
|> Set.ofList 
|> Set.intersect (Set.ofList lista2) 
|> Set.toList 


Perceba que transformamos as duas listas em conjuntos, 
realizamos a operação e transformamos o resultado em uma lista 
novamente. 


Com o operador criado, podemos implementar mais uma função 
aninhada para usá-la no filtro por produtos, assim como o filtro por 
clientes. Esta deve receber os itens da compra através de 
parâmetro, obter os identificadores dos produtos desta compra, 
realizar a interseção e verificar se a lista resultante possui pelo 
menos um elemento. 


let filtrarPorProduto (itens:ItemCompra list) = 
itens 
|> List.map(fun item -> item.ProdutoId) 
|> (><) (obterIdsProdutosDoFiltro filtro) 
|> List.length > O 


Agora podemos adicionar uma chamada a esta função na filtragem 
das compras e, por fim, adicionar a verificação do valor mínimo da 
compra, também presente no tipo comprarFiltro . 


let obterDoBancoPorFiltro (filtro: CompraFiltro) = 
let filtrarPorCliente id = 
obterIdsClientesDoFiltro filtro 
|> List.exists (fun idLista -> idLista = id) 


let filtrarPorProduto (itens:ItemCompra list) = 
itens 
|> List.map(fun item -> item.ProdutoId) 
|> (><) (obterIdsProdutosDoFiltro filtro) 
|> List.length > O 


obterCompras() .Dados 
|> List.filter(fun compra -> 
filtrarPorCliente compra.ClienteId 
&& filtrarPorProduto compra. Itens 
&& (filtro.ValorMinimo = 0.0 || compra.ValorTotal >= 
filtro.ValorMinimo )) 


A última tarefa a ser feita é criarmos uma nova função que realize a 
composição entre a função criada anteriormente e a transformação 
de uma compra em um valor de resposta. 


let obterPor = 
obterDoBancoPorFiltro 
>> transformarListaEmResposta 


Com isso, finalizamos o serviço da entidade de compras. 


8.5 Resumo 


Neste capítulo, exercitamos as funções disponíveis nos módulos 
List € Option, trabalhando com as entidades de diferentes formas: 
transformando, filtrando e criando verificações em cima destes 
valores. Além disso, foi criada a camada de transporte, responsável 
por gerar retornos mais significativos aos usuários e os valores 
usados para as filtragens mais flexíveis. 


Fizemos diversos exercícios de pipeline e composição criando 
funções facilmente reaproveitáveis e expansivas. Também foi vista a 
introdução do conceito teórico de tipos e seus universos paralelos, 
focando principalmente no conceito de funções de mapeamento. 


No próximo e último capítulo, vamos incorporar a validação de 
possíveis erros nos serviços através da criação de um novo tipo, no 
qual implementaremos nosso próprio universo paralelo. 


Você pode encontrar os códigos escritos neste capítulo em: 


www .bit.ly/funcional-Cap8-2. 





CAPÍTULO 9 
Manipular e gerenciar os erros 


Com as implementações feitas em nosso sistema de gestão de 
compras, já é possível realizar todas as operações propostas 
inicialmente: gerenciar clientes, produtos e compras. No entanto, 
todo o desenvolvimento realizado até agora foi baseado no que 
chamamos de caminho feliz. 


O caminho feliz é a sequência de processos que vai acontecer caso 
tudo ocorra conforme o planejado. Uma notícia ruim: os usuários 
não farão tudo como você planejou. Outra notícia ruim: se você não 
prever isso e o sistema falhar, a culpa é sua. Planejar e implementar 
somente o caminho feliz é tentador e intuitivo para muitos 
programadores, mas o mundo real não funciona assim. 


Parte do projeto de um software é avaliar as possibilidades de erro e 
tentar cercá-las da melhor forma, para que assim o software faça 
com que o usuário tenha uma boa experiência de uso. Os caminhos 
nos quais os erros ocorrem são conhecidos pelo termo caminho 
infeliz. E também precisamos prevê-los para fazer com que a 
experiência do usuário seja a melhor possível. 


É importante salientar que estes conceitos de tratamento de erros 
são comuns tanto em uma implementação orientada a objetos 
quanto funcional. 


Neste capítulo, veremos como tratar um caso de uso desde o 
momento da sua recepção na action do controller, passando pelos 
módulos de serviço, persistência e retornando como resposta da 
requisição HTTP novamente no controller. Vamos utilizar uma das 
operações implementadas para incluir estas validações e 
manipulações de erros. Para isso, faremos a análise da 
funcionalidade: atualização de clientes. 


9.1 Analisando um caso de uso 


Para criarmos as validações, será necessário mapear os caminhos 
infelizes, ou seja, os possíveis erros desta funcionalidade. Para isso, 
precisamos verificar suas regras de negócio. 


Para fins de exemplo, utilizaremos as regras descritas a seguir: 


1. Somente clientes já cadastrados no banco de dados podem ser 
atualizados, este serviço não fará uma inclusão caso o cliente 
não exista; 

2. Não podem ser salvos clientes com o nome ou sobrenome em 

branco; 

. O e-mail do cliente precisa estar no formato correto; 

. O CPF do cliente deve conter 14 dígitos; 

. O nome do cliente deve ser salvo com a primeira letra em 

maiúsculo e as demais em minúsculo. 


OAO 


Estas cinco regras definirão a estratégia de implementação da 
funcionalidade. 


Para cumprir a primeira regra, podemos reutilizar o serviço que 
obtém um cliente pelo identificador. Se esta função não retornar 
nenhum cliente, significa que o usuário informou um identificador 
não cadastrado no banco e, portanto, um erro ocorreu. 


As regras 2, 3 e 4 podem ser contempladas através de 
comparações de strings. Para a regra 2, podemos reaproveitar o 
operador (!! ), criado anteriormente. 


Para a regra 3, podemos utilizar o operador ( <~ ) para verificarmos 
se o e-mail possui um arroba ( q ). Caso contenha, o e-mail será 
considerado como em um formato válido. E para o caso 4, basta 
realizar a contagem do tamanho do CPF. 


A regra 5 é um exemplo de transformação. Ela não gera nenhum 
erro, mas é necessário implementarmos uma mudança no valor 
original. 


Agora precisamos encaixar estas regras no fluxo existente. 
Atualmente, acessamos o serviço de atualização através de uma 
requisição HTTP para o controller de clientes. 


O controller realiza uma série de operações e, depois disso, retorna 
uma resposta HTTP para quem realizou a requisição. No fluxo a 
seguir, estamos incorporando as regras descritas, sinalizando 
apenas o caminho feliz, mas já contendo uma separação entre 
quatro tipos de processos diferentes, em que: 


e Azul — Processos HTTP, requisição e resposta do controller 
web API; 

e Vermelho — Validação de alguma regra; 

e Amarelo — Processo de transformação de valores; 

e Verde — Operação fundamental. 







Cliente precisa ter a inicial em maiúsculo 


“Salvar Cliente 


Transformar em resposta 









Requisição HTTP 






Resposta HTTP 











Figura 9.1: Caso de uso - Fluxo 


Apesar de estas etapas ainda não estarem implementadas, já 


conseguimos mapeá-las. Isso facilitará nossa implementação no 
futuro. 


Vamos começar implementando a função de transformação, que é a 
regra mais parecida com o que já foi implementado anteriormente. 


Esta função deve transformar a letra inicial do nome do cliente em 
maiúsculo. 


Para fazer isso, teremos de adicionar o namespace 
System.Globalization Neste serviço através do comando open. Com 
isso, é possível acessar a função ToTitlecase, responsável por fazer 
com que a letra inicial de uma string seja maiúscula. 


Nossa função simplesmente esperará uma string por parâmetro e 
utilizará a função ToTitlecase sobre esta string, conforme o código: 


let primeiraLetraMaiuscula nome = 
CultureInfo.CurrentCulture 
. TextInfo 
. ToTitleCase nome 


Assim, a função de transformação para o nome está pronta. Agora 
precisamos incorporá-la em uma função que retorne um cliente com 
seu nome modificado. Faremos isso usando o comando with dos 
records. 


let transformarInicialNomeEmMaiusculo 
(cliente:Cliente) = 


{ 
cliente with 
Nome = primeiraLetraMaiuscula cliente .Nome 


} 


Agora já podemos adicionar esta função na composição 
atualizarCliente , conforme O código: 


let atualizarCliente = 
transformarInicialNomeEmMaiusculo 
>> atualizarClienteNoBanco 
>> transformarListaEmResposta 


Com isso, já podemos iniciar a implementação das funções de 
validação. 


Neste primeiro momento, usaremos uma abordagem baseada em 
exceções. Esta é uma das formas de implementar as validações 
das regras de negócio. 


9.2 Validações através de exceções 


Você se lembra de quando criamos a função obterporid ? Esta 
função inicialmente utilizava a função List.find, depois a alteramos 
para usar a função List.tryFind. 


A primeira função utilizada lançava uma exceção quando não 
encontrava nenhum elemento correspondente ao filtro informado. 
Ou seja, quando algo fora dos parâmetros esperados ocorresse. 


EXCEÇ ES 


As exceções são formas de representar comportamentos 
inesperados em uma aplicação. Quando estes comportamentos 
ocorrem, uma exceção é lançada e a execução atual é 
interrompida. Esta interrupção procura por algum manipulador 
de exceções. Eles são responsáveis por tratar uma exceção 


específica ou um conjunto de exceções, conforme a preferência 
do programador. 


O ponto importante sobre os manipuladores de exceções é que, 
sem eles, a exceção pode interromper o fluxo completo do 
programa, causando uma falha no sistema. Para mais 
informações, acesse a documentação da Microsoft sobre 
exceções no Ff, através do link: http://bit.ly/exce-fs. 





Esta é uma abordagem bastante comum e nossas validações serão 
baseadas nela. 


Vamos começar com a verificação do cliente que será atualizado no 
banco de dados, reutilizando a função obterportd . Inicialmente, 
incluiremos esta validação na função atualizarcliente. 


let atualizarCliente (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
let existeCliente = clienteDoBanco. IsSome 


transformarInicialNomeEmMaiusculo cliente 
|> atualizarClienteNoBanco 
|> transformarListaEmResposta 


Agora, através do valor existecliente , é possível verificar se o 
cliente em questão existe no banco de dados. Esta verificação pode 
ser feita através do desvio de fluxo if. 


Nos casos em que o cliente não existe no banco de dados, 
lançaremos a exceção KeyNotFoundexception , localizada no 
namespace system.Collections.Generic . Para lançar uma exceção, 
use o comando raise. 


let atualizarCliente (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
let existeCliente = clienteDoBanco. IsSome 


if not existeCliente then 
raise (System.Collections.Generic.KeyNotFoundException()) 


transformarInicialNomeEmMaiusculo cliente 
|> atualizarClienteNoBanco 
|> transformarListaEmResposta 


Após esta implementação, já é possível fazer com que o erro ocorra. 
Basta realizar uma chamada a este serviço, informando um 
identificador não cadastrado no banco de dados. 


A figura a seguir ilustra o resultado de um teste informando um 
identificador inválido. 


œ HTTP request E Headers {"id": 6,...) 


http://localhost:48213/api/cliente/Atualizar 500 (Internal Server Error) 





PUT v 


JSON (application/json) v 


Send request A Reset fields D 


+, Response £%; Raw response E Response headers 'D History 


"message": "An error has occurred." , === 


"exceptionMessage": "A chave fornecida não estava presente no dicionário.", 
"exceptionType": "System.Collections.Generic.KeyNotFoundException", 


Figura 9.2: Caso de uso - Exceção de cliente não cadastrado 


Perceba que o retorno agora possui o código 500 (Internal Server 
Error), indicando que houve algum problema durante a execução 
deste serviço. Além disso, como retorno, há um objeto de exceção 
fornecendo informações sobre o problema ocorrido. 


Vamos voltar para o código e verificar o impacto desta 
implementação. Note que houve um efeito negativo em inserir esta 
validação na função atualizarcliente . Com ela, perdemos a 
capacidade de realizar uma composição nesta função. 


Para solucionar isso, vamos encapsular esta validação em uma 
função, conforme o código: 


let verificaSeClienteExiste (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
let existeCliente = clienteDoBanco. IsSome 


if not existeCliente then 
raise (System.Collections.Generic.KeyNotFoundException()) 


Mesmo separando esta função, ainda não será possível realizar a 
composição, afinal, precisamos que o retorno da função seja igual 


ao parâmetro de entrada da função seguinte. Para contornar este 
problema, podemos inserir uma condição de else e retornar o 
cliente recebido por parâmetro. 


let verificaSeClienteExiste (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
let existeCliente = clienteDoBanco. IsSome 


if not existeCliente then 

raise (System.Collections.Generic.KeyNotFoundException()) 
else 

cliente 


Com este código, já é possível realizar a composição novamente! 


let atualizarCliente = 
verificaSeClienteExiste 
>> transformarInicialNomeEmMaiusculo 
>> atualizarClienteNoBanco 
>> transformarListaEmResposta 


Mesmo sendo possível realizar a composição novamente, é 
interessante refatorarmos a função de verificação para que ela se 
torne um pouco mais expressiva. Como já visto anteriormente, uma 
boa prática é aplicarmos um pattern matching em vez de um desvio 
condicional. 


let verificaSeClienteExiste (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
match clienteDoBanco with 
| Some clienteExistente -> cliente 
| None -> raise (System.Collections.Generic.KeyNotFoundException()) 


Agora já podemos passar para as próximas funções de validação. 
Vamos criar a função que verifica se o nome ou sobrenome não 
foram preenchidos, seguindo a mesma lógica do exemplo anterior. 
Receberemos o cliente por meio de parâmetro e, caso algo de 
errado ocorra, lançaremos uma exceção. 


No primeiro exemplo, lançamos a exceção KeyNotFoundException que 
indica que um valor não foi encontrado por uma determinada 
condição. Neste caso, é interessante lançar a exceção 
ArgumentException . Ela é usada para indicar que o parâmetro 
(argumento) é inválido. 


Para lançar esta exceção, podemos utilizar O raise, assim como 
fizemos no exemplo anterior. No entanto, a própria linguagem possui 
uma implementação chamada invalidarg , que já encapsula a 
chamada específica desta exceção em uma função. 


A função invalidarg espera duas strings por parâmetro: uma para 
indicar o campo inválido, e outra para especificar uma mensagem 
sobre o erro. Esta função será usada no caso de erro do pattern 
matching, conforme o código seguinte. 


let verificaNomeOuSobrenomeEmBranco (cliente:Cliente) = 
match cliente with 
| cliente when !! cliente.Nome || !! cliente.Sobrenome-> 
invalidArg "Nome ou Sobrenome" "É necessário preencher" 


| -> cliente 


Agora vamos incrementar esta chamada na composição de 
atualizarCliente e realizar um teste! 


let atualizarCliente = 
verificaSeClienteExiste 
>> verificaNome0OuSobrenomeEmBranco 
>> transformarInicialNomeEmMaiusculo 
>> atualizarClienteNoBanco 
>> transformarListaEmResposta 


œ HTTP request E Headers 


{"id":2 


http://localhost:48213/api/cliente/Atualizar , "sobrenome":"Souza" 


 "epfº:"131,313,131,123-21" 


PUT v , "email":"mariazinha2@teste.com" 
, "idade":25 

JSON (application/json) v s "telefone": "213" 
, "endereco":"Rua da mariazinha") 


Send request A Reset fields 'D 


€, Response & Raw response E Response headers 'D History 


{ 


"message": "An error has occurred.", 


"exceptionType": "System.ArgumentException", 


Figura 9.3: Caso de uso - Nome do cliente não pode estar em branco 


Por fim, precisamos de mais duas funções: uma para validar o e- 
mail, e outra para validar o CPF. Estas também utilizarão o pattern 
matching, fazendo suas devidas comparações. 


let verificaFormatoEmail (cliente:Cliente) = 
match cliente with 
| cliente when cliente.Email <~ "@" -> cliente 
| _ -> invalidArg "E-mail" "Formato incorreto" 


let verificaFormatoCPF (cliente:Cliente) = 
match cliente with 
| cliente when cliente.CPF.Length = 14 -> cliente 
| _ -> invalidArg "CPF" "Formato incorreto" 


Por fim, a função atualizarcliente será composta por todas as 
funções de verificação: 


let atualizarCliente = 
verificaSeClienteExiste 
>> verificaNome0uSobrenomeEmBranco 
>> verificaFormatoEmail 


>> verificaFormatoCPF 

>> transformarInicialNomeEmMaiusculo 
>> atualizarClienteNoBanco 

>> transformarListaEmResposta 


Agora já estamos validando todas as regras de acordo com a nossa 
análise inicial, mas ainda há alguns probleminhas em nossa 
implementação. A primeira coisa a resolver é remover o erro HTTP 
500 que ocorre sempre que uma exceção é lançada, pois ele indica 
que uma falha não prevista ocorreu no servidor. 


Nossas validações estão sendo previstas e os erros ocorrem 
quando há algo de errado nos dados enviados ao serviço. Por conta 
disso, um retorno mais significativo seria um erro HTTP 400. Este 
erro representa um bad request, ou seja, uma requisição imprópria 
ou incorreta. 


Como esta mudança envolve o protocolo HTTP, precisamos 
implementá-la no controller. Para isso, é preciso lembrar de algo 
citado anteriormente: uma exceção interrompe a execução até 
encontrar algum manipulador. Esta é a chave para a solução de 
nosso problema. 


Precisamos implementar um manipulador de exceções no controller. 
Para esta implementação, é necessário realizar alguns ajustes na 
função atualizar do controller de clientes. A primeira alteração será 
uma mudança no tipo de retorno desta função para 

IHttpActionResult , € este é o retorno básico de uma requisição HTTP 
de um serviço. 


Inevitavelmente, o tipo retornado de um controller seria uma 
resposta HTTP, mas o framework web API permite este retorno de 
forma implícita. Como agora vamos definir quais os retornos HTTP 
(200 ou 400), é necessário explicitar este tipo na declaração da 
função. 


[<HttpPut>] 
member this.Atualizar(cliente) : IHttpActionResult = 


ClienteServico.atualizarCliente cliente 


Agora que estamos explicitando o tipo de retorno como 
IHttpActionResult , O compilador apresenta erros na implementação. 
Isso porque o tipo clienteResposta retornado do serviço não é do 
mesmo tipo que o retorno da função. 


Felizmente, o próprio controller possui funções para gerar este tipo 
de resultado. Nos casos em que tudo ocorre normalmente, é 
necessário retornar um código HTTP 200 (OK). 


Para explicitarmos um retorno deste tipo, podemos usar a função 
ok do controller. 


[<HttpPut>] 
member this.Atualizar(cliente) : IHttpActionResult = 
this.0k (ClienteServico.atualizarCliente cliente) 


O retorno desta função implementa a interface IHttpactionResult, 
mas o compilador ainda apresentará erros. Isso porque, conforme 
visto no capítulo sobre Orientação a Objetos, a linguagem Ff não 
realiza conversões de interface de forma implícita. 


É necessário utilizar o operador :> para realizar esta conversão. 


[<HttpPut>] 

member this.Atualizar(cliente) : IHttpActionResult = 
this.0k (ClienteServico.atualizarCliente cliente) 
:> IHttpActionResult 


Com isso, o compilador deve parar de acusar erros na 
implementação e podemos focar na criação do manipulador de 
exceção. Os manipuladores de exceção funcionam a partir de um 
escopo definido pela palavra reservada try, e todo o trecho de 
código que pode gerar exceção deve estar neste escopo. 


Ao término dele, é iniciado um escopo com a palavra reservada 
with, que define um pattern matching para capturar exceções, de 
acordo com seu tipo ou por outras condições utilizando a palavra 


reservada when — como é feito normalmente em outros pattern 
matchings. 


Para criar um padrão pelo tipo da exceção, é preciso usar o 
operador :? , seguido do tipo esperado, conforme o código: 


[<HttpPut>] 
member this.Atualizar(cliente) : IHttpActionResult = 
try 
this.Ok (ClienteServico.atualizarCliente cliente) 
:> IHttpActionResult 
with 
| :? System.ArgumentException -> 
this.BadRequest() 
:> IHttpActionResult 


Com este código, nosso controller passa a retornar o código HTTP 
400 nos casos em que alguma validação de dados retornou erro, e 
retorna o HTTP 200 quando tudo ocorre bem. 


Vamos fazer um teste informando um CPF incorreto, conforme a 
figura: 


€ HTTP request E Headers 
+ "nome":"Mariazinha" 


http://localhost:48213/api/cliente/Atualizar » "sobrenome":"Souza" 


PUT v 





JSON (application/json) v 
co":"Rua da mariazinha")}) 


Send request A Reset fields 'O 


€, Response tt Raw response 


Response headers 'D History 400 (Bad Request) 


Figura 9.4: Caso de uso - Validação de dados retornando um bad request 


Perceba que o código do erro foi alterado, mas perdemos a 
mensagem de retorno. Para poder retornarmos a mensagem, é 
necessário que, além de realizar a comparação do tipo, o pattern 
matching também retorne o valor contendo a exceção. 


Para fazer isso, utilize a sintaxe: | :? tipo da exceção as valor ->. 
Este valor vai possuir todas as propriedades da exceção, incluindo a 
mensagem. 


[<HttpPut>] 
member this.Atualizar(cliente) : IHttpActionResult = 


| :? System.ArgumentException as erro -> 
this.BadRequest(erro.Message) 
:> IHttpActionResult 


Ao realizar novamente o mesmo teste, já obtemos a mensagem do 
erro. 


œ HTTP request EE Headers vid! 


+ “"nome!"':"Mariazinha" 


http://localhost:48213/api/cliente/Atualizar , "sobrenome" :"Souza" 


PUT v , "email":"mariazinha2@teste.com" 
"idade":25 
ON (application r v "telefone":"213" 
+ "endereco":"Rua da mariazinha")] 

Send request A Reset fields 'O 
€, Response tt Raw response E Response headers 'D History 400 (Bad Request) 
d 

"message": "Formato incorreto\r\nNome do parâmetro: CPF" 
} 


Figura 9.5: Caso de uso - Validação de dados retornando um bad request 


Esta é a forma de gerenciar erros em uma aplicação através das 
exceções. No entanto, há uma discussão na literatura sobre a 
aplicação deste tipo de gerenciamento de erros em uma aplicação. 


As exceções naturalmente quebram o fluxo do programa e podem 
criar complexidades para identificar o caminho percorrido pelos 
dados em sua aplicação. Além disso, elas também fazem com que 
as assinaturas das suas funções não sejam totalmente coerentes. 
Alguns desenvolvedores descrevem funções que lançam exceções 
como funções mentirosas, por conta de existir a possibilidade de um 
retorno não declarado em sua assinatura. 


Vamos utilizar para exemplo a função verificaFormatoEmail , que é do 
tipo: Cliente -> Cliente . De acordo com o seu tipo, ela deve receber 
por parâmetro e retornar um cliente. Porém, nos casos em que o 
cliente está com o formato de e-mail incorreto, ela lança uma 
exceção, ou seja, ela não retorna um cliente. 


Atualmente, com a interrupção do fluxo da aplicação, a execução da 
atualização do cliente pode ser representada pelo fluxo a seguir: 


Cliente precisa ter a inicial em maiúsculo 


Salvar Cliente 


Transformar em resposta 






Requisição HTTP 


Resposta HTTP 








Figura 9.6: Caso de uso - Fluxo interrompendo nas falhas 


Nela, as setas verdes indicam o caminho feliz, e as vermelhas 
indicam as exceções lançadas. 


Continuaremos a partir deste ponto utilizando uma abordagem 
diferente para o tratamento de erros, mas você pode fazer download 
do código da aplicação até aqui através do link: http://bit.ly/erro- 
excecao-fs. 


Para evitar a quebra de fluxo existente com a abordagem de 
exceções, precisamos utilizar outros conceitos. Uma das 
abordagens possíveis é a verificação e manipulação de erros 
através do caminho dos trilhos (do inglês, railway oriented 
programming). 


9.3 O caminho dos trilhos 


Para que a aplicação não tenha estas interrupções de fluxo, é 
necessário deixar de usar as exceções em nossas validações e criar 
uma nova forma para manipular os caminhos infelizes. 


A abordagem do caminho dos trilhos é uma analogia a uma ferrovia 
do mundo real, na qual existem dois trilhos diferentes indo para a 
mesma direção. Estes trilhos guiam o fluxo da aplicação através do 
caminho feliz (representado pela seta verde) e e através do caminho 
infeliz (representado pela seta vermelha). 





Figura 9.7: Trilhos - Caminho feliz e caminho infeliz 


A requisição HTTP recebida através do controller sempre estará 
caminhando pelo trilho do caminho feliz. Mas, de alguma forma, 
precisamos fazer com que as funções consigam transitar entre os 
dois trilhos. 


Para que isso seja possível, é necessário que as funções tenham 
dois possíveis resultados: um para sucesso e outro para falha. O 
resultado da função indicará por qual trilho o fluxo da aplicação 
continuará. 





Figura 9.8: Trilhos - Função produzindo dois resultados 


Neste ponto, encontramos nosso primeiro problema: como podemos 
fazer com que uma função retorne mais de um valor? 


Para solucionar este problema, podemos fazer com que a função 
retorne um discriminated union, ou seja, um tipo que possui mais de 
uma opção. Neste caso, o tipo precisará conter a opção de sucesso 
e a opção de falha. 


Vamos criar um módulo chamado Trilhos para conter todas as 
implementações referentes a esta abordagem. O arquivo deste 
módulo deve estar antes do módulo de domínio, e após os 
operadores e wrappers. 


A primeira coisa que será implementada neste módulo será o tipo 
Resultado , que possui as opções de sucesso e falha descritas 
anteriormente. 


type Resultado = 
| Sucesso 
| Falha 


Com isso, já podemos ter uma função que retorna os dois casos, 
mas ainda é preciso ter mais informações sobre o retorno das 
funções. Nos casos em que a função resulta em falha, precisamos 
saber qual falha ocorreu e, nos casos em que resulta em sucesso, 
precisamos saber qual é o valor que deve ser retornado. 


Para atender estes requisitos, basta inserirmos no tipo Resultado OS 
valores atrelados a cada uma das possíveis escolhas. 


type Resultado<'a> = 
| Sucesso of 'a 
| Falha of string 


Assim, é possível associar uma string ao caso de falha e qualquer 
tipo ao caso de sucesso. Isso ocorre devido à utilização de generics 
<'a>, já descrita anteriormente no livro. 


Perceba que esta é a primeira característica discutida sobre os tipos 
que representam universos paralelos. Agora o tipo Resultado possui 
um valor de sucesso correspondente a qualquer valor do universo 
comum. Logo, é possível realizar a refatoração das funções atuais 
para que retornem o tipo Resultado . 


Mas isso acarretaria no fim da composição das funções, afinal como 
faremos para realizar a composição das funções se elas retornam 
dois possíveis valores? 


De fato, a composição através dos trilhos é um pouco diferente e 
precisaremos de funções para nos auxiliar. As funções recebem 
apenas um valor como entrada, mas resultam em dois valores 
diferentes. Perceba na figura a seguir o problema na composição 
entre duas funções através dos trilhos. 





Figura 9.9: Trilhos - Compondo funções apenas no caminho feliz 


Para que seja possível realizar esta composição, é necessário criar 
um adaptador, para que as funções passem a poder receber os dois 
valores possíveis. 


Nestes casos, a aplicação executará a função apenas quando o 
resultado for recebido pelo trilho do caminho feliz. Caso algum 
problema tenha acontecido anteriormente, a função apenas dará 
continuidade ao erro através do caminho infeliz. 


Para que seja possível realizar esta composição, será necessário 
transformar o tipo Resultado em um dos universos paralelos 
descritos no capítulo anterior. Isso significa que teremos de 
implementar manualmente algumas das funções presentes nestes 
universos. 


A primeira função que precisamos implementar é a de 
mapeamento. 


Criando um tipo mapeável 


A função de mapeamento foi explicada no capítulo anterior, mas 
vamos relembrá-la agora. Esta função é usada para transformar 
uma função que deve ser aplicada ao universo comum em uma 
função que pode ser aplicada em um determinado universo paralelo. 


Seu tipo é representado por (a -> b) -> UP<a> -> UP<b>, em que uP é 
o universo paralelo correspondente. Em nosso caso, o tipo desta 


função será (a -> b) -> Resultado<a> -> Resultado<b> . Vamos iniciar a 
implementação desta função! 


Apesar de se tratar de termos bastante abstratos, ela é uma função 
razoavelmente simples. Tudo o que precisamos fazer é retirar o 
valor contido em Resultado<a> por meio de um pattern matching, 
aplicar a função (a -> b) e retorná-la para o tipo Resultado 
novamente. 


Nos casos em que o caso Falha do pattern matching for acionado, 
basta passarmos o valor da falha adiante, conforme o código. 


let map funcao valor = 
match valor with 
| Sucesso n -> Sucesso (funcao n) 
| Falha erro -> Falha erro 


Ao avaliar o tipo da função, verá que ela corresponde exatamente 
ao tipo esperado. 


Para exemplificar a função map criada, vamos usar uma simples 
função de multiplicação. Ela será a função (a -> b) em nosso 
exemplo. Esta função é definida por fun n ->n *3,emque n éo 
valor inteiro que será multiplicado por três, conforme ilustra a figura 
a seguir: 


valor função resultado 
10 |> (fun n -> n *3) = 30 


Figura 9.10: Função de multiplicação no universo comum 


Agora vamos fazer dois testes da função de mapeamento através 
do F# interactive: um para um caso de sucesso, e outro para o caso 
de falha. 


Para o caso de sucesso, criaremos o valor 10 no universo paralelo 
de um Resultado e aplicaremos a função mapeada para este 
universo: 


> let valor = Sucesso 10;: 











val valor : Resultado<int> = Sucesso 10 


> valor 
|> map (fun n -> n * 3);; 


val it : Resultado<int> = Sucesso 30 





Figura 9.11: Tipo mapeável - Caso de sucesso nos testes no Ff interactive 


O resultado foi o valor 30 no universo paralelo de Resultado, 
conforme o esperado. Neste próximo teste, aplicaremos a mesma 
função para um caso de falha: 


> let erro = Falha “Teste de erro”;; 





val erro : Resultado<'a> 


> erro 
|> map (fun n -> n * 3);; 


'val it : Resultado<int> = Falha "Teste de erro" 





Figura 9.12: Tipo mapeável - Caso de falha nos testes no F# interactive 


Neste caso, a falha é apenas passada adiante como resultado. Com 
isso, sabemos que a função de mapeamento retorna o resultado 
esperado nos dois casos! 


Vamos entender melhor o que ocorre quando a função de 
mapeamento é chamada, utilizando o caso de sucesso 
exemplificado anteriormente. 


Universo paralelo 


valor resultado 






Sucesso 10 =| Sucesso 30 








Universo comum 
valor função resultado 


10 |> (funn->n*3) = 30 


Figura 9.13: Função de multiplicação através de um mapeamento 


Com esta implementação, podemos declarar que o tipo Resultado 
agora é um funtor. Funtores são uma categoria de tipos definidos 
por uma estrutura de dados genérica. No nosso caso, Resultado<'a> 
é uma função map que obedece às duas regras do funtor. 


AS REGRAS DE UM FUNTOR 


Existe um termo teórico chamado Functor Laws, ou regra de 
funtores. Ele se refere às regras de implementação da função de 
mapeamento. Estas regras consistem em conceitos matemáticos 
e provas reais de que a função está correta. Elas não serão 
descritas no livro por se tratarem de assuntos fortemente 
teóricos e matemáticos. 


Para saber mais sobre estas regras, acesse: http://bit.ly/functor- 
laws. 





Por fim, criaremos um operador para acessar a função de 
mapeamento. Comumente, a função de mapeamento é definida pelo 
operador <!> ou <$>. Em nosso exemplo, vamos utilizar o operador 
<o>. 


let (<!>) = map 


Agora é possível usar o operador para realizar um mapeamento, 
conforme os exemplos: 


(fun n -> n * 3) <!> Sucesso 10 
(fun logico -> not logico) <!> Sucesso true 
(fun n -> n% 2 =0) <!> Falha "Erro! " 


Após a implementação, podemos continuar com mais alguns testes. 
Até o momento, todos os testes realizados usaram funções de 
apenas um parâmetro. O que acontece se tentarmos utilizar funções 
com mais de um parâmetro? 


Vamos realizar o teste! Em vez de usarmos a função de 
multiplicação por três, vamos utilizar diretamente a função de 
multiplicação, esperando os dois parâmetros (*). 


let teste = 
let multiplicacao = (*) 
multiplicacao <! > Sucesso 40 Sucesso 3 


O compilador acusará um erro nesta função. Mas o que estamos 
fazendo de errado? 


O problema desta implementação é que a forma como a função de 
mapeamento deve ser desenvolvida faz com que não seja possível 
utilizar funções de mais de um parâmetro. 


O motivo é bastante simples: todo o resultado da função que foi 
mapeada é convertido novamente para o universo paralelo. Basta 
usarmos explicitamente a aplicação parcial para perceber o 
problema: 


let teste = 
let multiplicacao = (*) 
multiplicacao <! > Sucesso 3 


Ao utilizar a aplicação parcial, é possível notar que o problema no 
compilador desaparece, mas o tipo retornado nesta função é: 
Resultado<int -> int>. Ou seja, a função parcial retornada agora 
pertence ao universo paralelo, e não podemos acessá-la até a 
trazermos de volta ao universo comum. 


Universo paralelo 


valor resultado 


Sucesso 3 =| Sucesso (fun n -> n *3) 








Universo comum 
valor função resultado 
10 i> (+) = (fun n -> n *3) 


Figura 9.14: Função de aplicação com dois parâmetros através de um mapeamento 


Para realizar esta tarefa, é preciso que o nosso universo possua a 
função de aplicação. 


Criando um tipo aplicativo 


Para solucionar o problema do mapeamento, é preciso utilizar a 
função de aplicação, afinal, é bastante comum precisarmos de 
funções que exigem mais de um parâmetro durante o 
desenvolvimento de uma aplicação. 


Esta função acrescenta um pequeno complicador quando 
comparada ao mapeamento. Agora, o tipo da função recebida por 
parâmetro também vai pertencer ao universo paralelo. A função de 
aplicação tem seu tipo descrito por: Resultado<(a->b)> -> Resultado<a> 
-> Resultado<b> . 


Assim como fizemos na função de mapeamento, precisamos 
realizar um pattern matching no valor recebido para trazê-lo de volta 
ao universo comum. No entanto, agora o pattern matching também 
precisa avaliar o valor da função recebida por parâmetro, afinal, ela 
também pertence ao universo paralelo e precisa ser convertida para 
o Universo comum. 


Caso qualquer um dos dois tipos (valor ou função) seja do caso 
Falha, é necessário retornar a falha contida no valor, assim como 
fizemos no mapeamento. 


let apply funcao valor = 
match funcao, valor with 
| Sucesso f, Sucesso n -> Sucesso (f n) 
| _ , Falha erro -> Falha erro 
| Falha erro, _ -> Falha erro 


Com isso, podemos continuar o teste que tivemos problema 
utilizando somente mapeamento. 


Agora é possível armazenar o resultado de multiplicacao <! > Sucesso 
3 em uma função aninhada. Depois disso, podemos utilizar a função 
apply para podermos informar o parâmetro restante. 


let teste = 
let multiplicacao = (*) 


let funcaoUniversoParalelo = 
multiplicacao <! > Sucesso 3 


apply funcaoUniversoParalelo (Sucesso 10) 


Com esta alteração, obtivemos o resultado sucesso 30, conforme o 
esperado. Para facilitar a escrita da função de aplicação, é comum 
definirmos um operador para representá-la. O operador <*> é 
comumente usado para definir a função de aplicação. 


let (<*>) = apply 


Com ele, podemos refatorar a função de teste para: 


let teste = 
let multiplicacao = (*) 
multiplicacao <! > Sucesso 3 <*> Sucesso 10 


Esta forma de escrever a chamada da função é mais similar ao 
formato do universo comum que a anterior. Para utilizar esta função 
no universo comum, usaríamos a sintaxe: multiplicacao 3 10. 
Incluindo os operadores entre a função e os parâmetros, é possível 
realizar as transformações de universo e aplicar a mesma função 
aos mesmos valores, obtendo o resultado correspondente, mas no 
universo paralelo. 


Por conta desta semelhança, alguns exemplos na literatura chamam 
esta forma de escrita de overloaded whitespace, que podemos 
adaptar para sobrecarga de universos paralelos. 


Uma sobrecarga de universos paralelos consiste em chamar uma 
função de um ou mais parâmetros utilizando operadores de um 
universo paralelo. Dessa forma, é possível sobrecarregar uma 
chamada de função do universo comum ( multiplicacao 3 10 ) para 
um universo paralelo ( multiplicacao <! > Sucesso 3 <*> Sucesso 10 ). 


Além disso, esta sintaxe facilita o uso para funções de múltiplos 
parâmetros, que como já descrito anteriormente, é uma das 


características mais importantes da função de aplicação. Nestes 
casos, é necessário utilizar a função de aplicação seguidas vezes. 


Para ilustrar isso, vamos criar uma função para multiplicador dois 
valores e, depois, realizar uma soma com um terceiro valor. 


let multiplicaESoma valor1i valor2 somador = 
(valor1 * valor2) + somador 


Esta função foi escrita para o universo comum dos dados, mas 
podemos transformá-la facilmente para trabalharmos com dados 
correspondentes em nosso universo paralelo. 


multiplicaESoma <! > Sucesso 3 <*> Sucesso 10 <*> Sucesso 4 


Uma característica importante a respeito da função de aplicação é 
que ela é considerada mais poderosa que a função de mapeamento. 
Isso ocorre porque, através dela, é possível criar a função de 
mapeamento e, através da função de mapeamento, não é possível 
criar uma função de aplicação. 


Para criar um mapeamento por meio de uma aplicação, basta 
transformarmos a função em seu valor correspondente no universo 
paralelo, e depois usarmos a função de aplicação normalmente. 


Vamos exemplificar com o código anterior. Desta vez, a função 
multiplicaESoma Não usará o operador de mapeamento; em vez 
disso, faremos com que ela pertença ao universo paralelo Resultado 
e utilizaremos somente o operador de aplicação. 


Sucesso multiplicaESoma <*> Sucesso 3 <*> Sucesso 10 
<*> Sucesso 4 


O resultado alcançado com esta abordagem é exatamente o 
mesmo. Assim, podemos declarar o tipo Resultado como um funtor 
aplicativo. 


Funtores aplicativos também são uma categoria de tipos definidos 
por uma estrutura de dados genérica e uma função apply que 
obedece às quatro regras do funtor aplicativo. 


AS REGRAS DE UM FUNTOR APLICATIVO 


Assim como o conjunto de regras de um funtor, também há um 
termo teórico cnamado de Applicatives functor laws, ou regras 


de funtores aplicativos. Estas regras definem a implementação 
da função de aplicação. 


Para saber mais sobre estas regras, acesse: 
http://bit.ly/applicative-laws. 





A última função que nosso tipo precisará conter é a função de 
vínculo. 


Criando um tipo vinculável 


A função de vínculo é usada para trabalharmos com funções que 
cruzam universos diferentes. Vamos criar uma função simples para 
exemplificar o problema. 


Primeiro, vamos reutilizar a função de multiplicação por três: 


let multiplicaPor3 n = 
n *3 


Agora, criaremos uma nova função que multiplica um valor recebido 
por parâmetro diversas vezes por três: 


let multiplicandoDiversasVezes n = 
multiplicaPor3 n 
|> multiplicaPor3 
|> multiplicaPor3 
|> multiplicaPor3 


Podemos escrever esta função na forma de pipeline, como no 
exemplo anterior, e na forma de composição: 


let multiplicandoDiversasVezesComposicao = 
multiplicaPor3 
>> multiplicaPor3 


>> multiplicaPor3 
>> multiplicaPor3 


Tudo funciona normalmente, afinal, a entrada e a saída desta 
função são do mesmo tipo. Mas agora vamos criar uma nova função 
adicionando um complicador. 


A nova função multiplicará um número inteiro por três, mas fará isso 
apenas com os números pares. Nos casos em que o número for 
impar, retornaremos um tipo Falha, conforme o código: 


let multiplicaNumeroPar numero = 
match numero with 
| n when n % 2 = 0 -> Sucesso (n * 3) 
| _ -> Falha "Número ímpar" 


Esta função é bastante simples e sua estrutura se parece muito com 
a estrutura das funções de validação, implementadas no serviço de 
cliente. Nos casos em que tudo ocorre bem, é retornado um valor de 
sucesso; caso contrário, um valor de falha. Mas o que acontece 
quando vamos tentar realizar esta operação mais de uma vez? 


O compilador acusa um problema tanto na forma de pipeline quanto 
na forma de composição. Isso ocorre por conta da incompatibilidade 
de tipos. A função espera um valor do tipo int, mas retorna um 
valor do tipo Resultado<int>, OU Seja, esta é uma função que 
internamente cruza do universo comum para o universo paralelo de 
resultados. 


Para resolver o problema, é necessário criar a função para 
vínculos, nomeada de bind. Esta função é do tipo: (a -> 
Resultado<b>) -> Resultado<a> -> Resultado<b> . 


Tudo o que precisamos fazer nela é extrair o valor do universo 
paralelo para aplicar na função. Porém, diferente do mapeamento, 
não é necessário transformar o resultado da função para o universo 
paralelo, porque a própria função já realiza esta tarefa. 


let bind funcao valor = 
match valor with 
| Sucesso n -> funcao n 
| Falha erro -> Falha erro 


Através da função de vínculo, é possível executar as funções de 
multiplicação em sequência, tanto em pipeline quanto em 
composição: 


let multiplicandoDiversasVezes n = 
multiplicaNumeroPar n 
|> bind multiplicaNumeroPar 
|> bind multiplicaNumeroPar 
|> bind multiplicaNumeroPar 


let multiplicandoDiversasVezesComposicao = 
multiplicaNumeroPar 
>> bind multiplicaNumeroPar 
>> bind multiplicaNumeroPar 
>> bind multiplicaNumeroPar 


Também é bastante comum definir um operador para facilitar o uso 
da função de vínculo, assim como na função de mapeamento e na 
de aplicação. Neste caso específico, podemos definir dois 
operadores: |>= e >>. 


Estes operadores substituem os operadores de pipeline e 
composição quando existe a necessidade de realizar a 
transformação dos tipos entre universos diferentes. 


let (|>=) valor funcao = 
valor 
|> bind funcao 


let (>>=) funcao1l funcao2 = 
funcaol 
>> bind funcao? 


Agora podemos compor as funções de forma bastante similar ao 
que já fazíamos antes, fazendo apenas a mudança do operador: 


let multiplicandoDiversasVezes n = 
multiplicaNumeroPar n 
|>= multiplicaNumeroPar 
|>= multiplicaNumeroPar 
|>= multiplicaNumeroPar 


let multiplicandoDiversasVezesComposicao = 
multiplicaNumeroPar 
>>= multiplicaNumeroPar 
>>= multiplicaNumeroPar 
>>= multiplicaNumeroPar 


A função de vínculo é considerada a mais poderosa das funções 
criadas para nosso tipo. Isso porque, através dela, podemos criar 
tanto a função de mapeamento quanto a função de aplicação; o 
contrário não é verdadeiro para nenhum dos casos. 


Para criar um mapeamento por meio de uma função de vínculo, 
basta realizar a composição entre a função passada por parâmetro 
e a transformação do resultado em um valor do universo paralelo. 


let map2 funcao= 
bind (funcao >> Sucesso) 


Para criar uma aplicação através da função de vínculo, precisamos 
reutilizar a função de mapeamento. Ela é usada para mapear uma 
função anônima que será aplicada a um valor, e esta função 
anônima criada deve ser vinculada à função informada por 
parâmetro: 


let apply2 funcao valor = 
bind (fun f -> map2 f valor) 
funcao 


Ao analisar os tipos das funções mapz € apply2 , notamos que elas 
possuem os mesmos tipos das suas versões originais e se 
comportam da mesma maneira. 


Com esta implementação da função de vínculo, podemos declarar o 
tipo Resultado como uma mônada. Mônadas são uma categoria de 


tipos definidos por uma estrutura de dados genérica e uma função 
bind que obedece às três regras da mônada. 


AS REGRAS DE UMAM NADA 


Assim como as outras classificações, as mônadas também 


seguem regras específicas, conhecidas como Monads laws, ou 
regras de mônadas. Para saber mais sobre estas regras acesse: 
http://bit.ly/monad-laws. 





Com isso, finalizamos o universo paralelo dos resultados e podemos 
voltar para a implementação do serviço de clientes! 


9.4 Abordagem de trilho para atualização de 
cliente 


Vamos começar a implementação retornando ao serviço de clientes 
e alterando o corpo da função atualizarcliente, para que ela 
contenha apenas a composição das funções atualizarclienteNoBanco 
e transformarListaEmResposta . Faremos isso para recomeçar a 
implementação desta função no mesmo ponto em que iniciamos a 
implementação com a abordagem de exceções. 


let atualizarCliente = 
atualizarClienteNoBanco 
>> transformarListaEmResposta 


A primeira coisa que precisamos fazer antes de realizar qualquer 
mudança nas funções de validação é importar o módulo de trilhos 
pelo comando open Trilhos. 


A primeira validação é responsável por verificar se o cliente já está 
cadastrado no banco de dados. Atualmente, seu código deve estar 
idêntico ao código a seguir. 


let verificaSeClienteExiste (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
match clienteDoBanco with 
| Some clienteExistente -> cliente 
| None -> raise (System.Collections.Generic.KeyNotFoundException()) 


A mudança feita nas funções de validação é a alteração do 
resultado do pattern matching. Agora em vez de lançarmos uma 
exceção, retornaremos um valor do tipo Resultado no caso de falha. 


Para que não haja um problema de tipos diferentes nas decisões do 
pattern matching, será necessário alterar o caso de sucesso para 
um valor do tipo Resultado . Assim, os dois casos retornarão um 
Resultado<Cliente> em vez de um cliente. 


let verificaSeClienteExiste (cliente:Cliente) = 
let clienteDoBanco = obterDoBancoPorId cliente.Id 
match clienteDoBanco with 
| Some clienteExistente -> cliente |> Sucesso 
| None -> Falha "Cliente não cadastrado no banco de dados" 


O mesmo deve ser feito em todas as outras funções de validação: 


let verificaNomeOuSobrenomeEmBranco (cliente:Cliente) = 
match cliente with 
| cliente when !! cliente.Nome || !! cliente.Sobrenome -> 
Falha "É necessário preencher o nome e o sobrenome" 
| -> cliente |> Sucesso 


let verificaFormatoEmail (cliente:Cliente) = 
match cliente with 
| cliente when cliente.Email <~ "@" -> cliente |> Sucesso 
| _ -> Falha "E-mail com formato incorreto" 


let verificaFormatoCPF (cliente:Cliente) = 
match cliente with 
| cliente when cliente.CPF.Length = 14 -> cliente |> Sucesso 
| _ -> Falha "CPF com formato incorreto" 


Com apenas estas alterações, já é possível compor a função 
atualizaCliente corretamente com esta abordagem. Mas antes de 


realizarmos a composição, vamos compreender o que está 
ocorrendo com as funções de validações. 


Todas elas recebem por parâmetro um valor de cliente do universo 
comum e estão retornando um valor de cliente no universo 

Resultado . Este é o tipo de situação que se encaixa exatamente no 
caso da função de vínculo! Então, vamos usar o operador >>=, para 
que seja possível realizar a composição, conforme o código: 


let atualizarCliente = 
verificaSeClienteExiste 
>>= verificaNome0OuSobrenomeEmBranco 
>>= verificaFormatoEmail 
>>= verificaFormatoCPF 


Agora precisamos compor estas funções com as funções de 
transformação do nome em maiúsculo, atualização no banco de 
dados e transformação em resposta. Todas estas funções recebem 
e retornam um valor que não está no universo dos resultados, 
então, para que seja possível inseri-las na composição, 
precisaremos utilizar a função de mapeamento. 


Esta mudança é bem parecida com a que fizemos anteriormente na 
função obterPorid, mas agora mapearemos para o universo de 
resultado, e não de valores opcionais. 


let atualizarCliente = 
verificaSeClienteExiste 
>>= verificaNome0OuSobrenomeEmBranco 
>>= verificaFormatoEmail 
>>= verificaFormatoCPF 
>> Trilhos.map transformarInicialNomeEmMaiusculo 
>> Trilhos.map atualizarClienteNoBanco 
>> Trilhos.map transformarListaEmResposta 


Ainda podemos refatorar esta função para utilizarmos o operador de 
mapeamento em vez da função explicitamente: 


let atualizarCliente = 
verificaSeClienteExiste 


>>= verificaNome0OuSobrenomeEmBranco 

>>= verificaFormatoEmail 

>>= verificaFormatoCPF 

>> (<! >) transformarInicialNomeEmMaiusculo 
>> (<!>) atualizarClienteNoBanco 

>> (<! >) transformarListaEmResposta 


Com isso, a alteração necessária nesta camada já está finalizada. 


Agora a função atualizarcliente não contém interrupções de fluxo, 
assim como desejávamos no início do capítulo: 
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Figura 9.15: Caso de uso - Fluxo sem interrupções nas falhas 


Na visão realizada sob a abordagem dos trilhos, as validações são 
blocos de possíveis mudanças, enquanto as funções de 
transformação e a operação fundamental são funções que apenas 
continuam no mesmo trilho, conforme ilustra a figura a seguir. 


validação 1 validação N transformação N 


cliente 








Figura 9.16: Caso de uso - Caminho dos trilhos n 


Para concluirmos a implementação desta abordagem, será 
necessário realizar uma pequena mudança no controller de clientes. 
Tudo o que precisamos fazer no controller é remover o escopo try- 
with e realizar um pattern matching no resultado da operação de 
atualização. 


Caso seja um resultado de sucesso, retornamos um código HTTP 
200 (OK). Caso seja uma falha, retornamos um código HTTP 400 
(Bad request) com a mensagem de erro informada. 


[<HttpPut>] 
member this.Atualizar(cliente) : IHttpActionResult = 
let resultado = ClienteServico.atualizarCliente cliente 
match resultado with 
| Sucesso r -> this.0k(r) :> IHttpactionResult 
| Falha erro -> this.BadRequest(erro) :> IHttpActionResult 


Agora já é possível realizar os testes deste método, tanto nos casos 
de sucesso quanto nos casos de falha! 


œ HTTP request E Headers 


i 
"idts2 
http://localhost:48213/api/cliente/Atualizar , "nome":"Mariazinha" 
, "sobrenome" :"Souza e Silva" 
PUT v y *epf":M112,131.221-32" 
, "email":"mariazinhageste.com"” 
JSON (application/json) v » "idade":25 


, "telefone":"213" 
, "endereco":"Rua da mariazinha" 


} 
Send request «À Reset fields 'O 
4 Response X Raw response E Response headers 'D History 200 (OK) 


"id": 2; 

"nomeCompleto": "Mariazinha Souza e Silva", 
Pop TIDAS 22 Ss 

"idade": 25, 

"telefone": "213", 

"endereco": "Rua da mariazinha" 


Figura 9.17: Caso de sucesso na atualização de um cliente 


œ HTTP request E Headers io - 


http://localhost:48213/api/cliente/Atualizar 400 (Bad Request) 


Send request A Reset fields 'O 


€, Response & Raw response E Response headers 'D History 


t 


"message": "Cliente não cadastrado no banco de dados" 


} 


Figura 9.18: Caso de falha na atualização de um cliente 


Assim, finalizamos a abordagem para manipulação de erros através 
do caminho dos trilhos! 


9.5 Conclusão 


Antes demais nada, que bom que você chegou até aqui! Neste 
último capítulo, foi visto como realizar a manipulação de erros na 
aplicação, utilizando uma abordagem voltada para exceções ou para 
o caminho dos trilhos. 


Para que fosse possível aplicar a abordagem dos trilhos, criamos 
um universo paralelo desde o início! Este universo contém as 
funções map, apply € bind , fazendo com que ele possa ser 
chamado de funtor, funtor aplicativo e mônada. 


Você pode encontrar os códigos escritos neste capítulo em: 


www. bit.ly/funcional-Cap9-2. 





Neste livro, você passou pelos principais conceitos introdutórios e 
intermediários necessários para a compreensão do paradigma 
funcional, tendo como foco principalmente a didática e a 
aplicabilidade. Tentei trazer estes conceitos para o dia a dia do 
programador da forma mais simples possível. 


Neste ponto, você já deve estar apto para criar suas aplicações 
guiadas pelo paradigma funcional sozinho, usando os conceitos 
vistos aqui. É importante ressaltar que vários padrões arquiteturais 
de aplicação foram ignorados, com o objetivo de fazer com que o 
leitor se concentre apenas no conteúdo principal abordado. 


Espero que este livro seja só um gatilho para sua busca por 
conhecimento em programação, não só sobre o paradigma 
funcional, mas como um todo. Não se prenda a uma única 
abordagem; quanto mais opções disponíveis você tiver, melhor será 
sua solução final. 


Eu acredito que o desenvolvimento de aplicações utilizando o 
paradigma funcional é algo bastante prático e divertido. Entretanto, 
existem diversas funcionalidades e conceitos não mencionados 
neste livro, como a criação de testes unitários, computations 
express e outras. 


Além da abordagem, é importante ressaltar que você não deve se 
prender ao Ff. Existem diversas linguagens funcionais e orientadas 
a objeto que são excelentes para solucionar os mais diversos 
problemas. 


Como autor, busquei compartilhar meu conhecimento da forma mais 
didática, simples e intuitiva. Espero que este livro seja proveitoso 
para você de alguma forma, e que, a partir de agora, você consiga 
aplicar os conceitos vistos neste livro em seu dia a dia e se torne um 
desenvolvedor melhor. 


